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Anmeldelser og tests 

Fradobbeltdaekkertllrumiaerge 6 

Sior gennemgang a1 de mest po- 
pulasre ffysimulatorer. 

Okimaie 20 

RUN har testet en printer, der Kan 
bruges tii bade Commodore 64 og 
PC'eren. 

COMAL 80 version 2.01 19 
Hvad kan den nye version, som 
den gamfe ikke kunne, og kan det 
betale sig at f£ den opdateret 




Boganmeldelser 22 

Der kommer stadig Here gode 
bsgerpd dansk. Laes om et par af 
de nyeste. 

Eureka! 66 

Vi fortsaetter gennem eventyrspil- 
let pi jagt efter den 25.000 pund. 



Tips, tricks og vejledning 



Smatipstil64'eren 11 

Steen Schmeltzer giver gode rid 
og tips fra sig. 



MultfcolorSprites 58 

En pop uleer gennemgang afer em- 
ne, sorn mange tror er svaert. 

Laesertrlcks 59 

Vi er glade for bidrag fra vore laese- 
re. Denne gang har vi feet nogle 
gode rad om diskettestat'onen. 

Maskinkodedel3 60 

Vi fortsaetter gennemgangen den- 
ne spaendende program merings- 
form. 

Joystickporten 62 

Atteretemne, der ikke erf orkiaret 
i brugervejledningen. Lass hvor- 
dan, du kan bruge joystick i dine 
egne programmer. 
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lassere og forkfarer, hvordan det 
virker. 

Tegnfordellng 59 

Flemmlng Lerbaek forktarervidere 
og denne form for tipning. 



Andet 

Konkurrence 21 

Va?r med i RUNs store fedsels- 
dagskonkurrence. 

Hurra, jeg kan programmere 18 

En begejstret tsesers made med 
COMAL 80. 



Tipsprogram del 4 17 

Vi har lavet en printrutine, der gi- 
ver en flot udprintning af kuponer- 
ne. 

Programseklion 23-54 
Vi har samlet alle programlistnin- 
gerne i en midtersektion pa* 32 si- 
der 




Deblapirater 
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Vi tageret varmtemne op tildebat. 
En anonym synder gir til beken- 
delse. VI gleeder os til dit Indlaeg. 

RUN Amok 70 

Ingen er fet'lfri. Her rider vi bod pi 
vore »bommerter«. 

Indlastningsvejlednlng 72 

Laes den for du begynder at taste 
dine programmer ind. 



input/Output 



14 Turbo Save 



RUN's laeserbrevkasse med en 
masse gode spergsmit og svar. 
Maske er der ogs£ noget, du kan 
bruge. 
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Hvordan virker Turbo Save og 
hvordan bruger jeg det selv? Vor 
dygtige norske medarbejder har 
lavet et turboprogram til RUN's 
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A PUBLICATION OF 
CW COMMUNICATIONS 



Mangier du nogettil din Commodore 64? 

VI HAR DET 



ADMINISTRATIVE SYSTEM ER 



COMFINANS 



version 
2.0 




Finansbogholdcriet ill Commodore 64. dercrhle- 
vtl cn bestseller i Iwlx'l :if el in. Over 250 systeme r 
korer pA nuvxrende lidspunkt. 
COMFINANS er blevci forbcdrel igen, ved Bt 
man kan fa udskrifi af en konto pa skierm. samt en 
5<ddobitlunce lil enhver tid. Hastighedcn cr ogsA 
blevet fonaget. 

Kapacitet; l2tKIposlcringcrpr.periode.300konti. 
Og prison er del bedste 

vcdd<J!he!e.Forkr.2.()')5, NUkr. 



1.595 



FAKSYS 



version 
2.0 




Fakturusystcmct til Commodore 64 der ikkc har 
nogen konkurrenl 

Fakturering. kontoudtog. rentchcrcgning. lager 
og mege! mere . Progr-a mmc'i kan kflrc «elvsia?nuigl 
ellcr inlegrcres med COMFINANS. 
Kapaciici: 250 kundcr. 25(1 varer. 

HUkr 1J95 

Begge systemer samlet kun kr. 2.995,- 



SP/ENDENDE UDVIDELSER 




Parallel Printer 

Interface med 16K buffer 



Med ctette interface kan man tilslultc 
nxsten enhver parallel printer til sin 
Commodore 64. Den tilstuttes den 
serielle udgang og benyiter 
ikkc nogel software. 

Prls kr. 



1.104 




80 tegns tekst- 
behandlingskort 

Her far Du et 80 icgns kort med DAN SK tckst- 
hehandling. Endelig kan man sc HO teen pa 
skarrmen. nar man skriver sine breve. Endvi- 
dcre har den ci digital! ur. fastfrysning af 
linicrosv. ^ 7 /ID 

Prls kr. I ■ / *T%J 



COM-IN 64 

Et hett nyt produkt fra MCH. 
COM-IN 64 er et kommunika- 
lionsinterface med facilitel som 
folgcnde: 

CW. RTTY. TEXT, MODEM , 
MAILBOX. AFSKOUT. 
Kommunikatiomsinterfacct til 
begvndcren og den 
profcsstoncllc. 

Prls kr.* 



3.039 



Eprom braender 

Her er Din Eprom braender til 
Commodore 64. 
Software cr na- 
lurligvis med i 
prtsen. Bramde- 
ren kan brznde 
eprom typer fra 2508 lil 27128. 
Endvidcrc mcdfelgcr der Eprom- 
kori til lilslutning af de Eproms 
man harbrasndt. ■* O/lfl 

Priskr. I.J*K9 




Eprom sletter 

Eprom sleiteren kan slciic op til 
fire Eproms 
ad gangen oe 
arbejder fuld- 
stiundig 
uafha-ngig af 
cornputercn. 



Prts kr. 



707 




Motherboard 

minder lilsMning af Acre modu- 
Icr af cn gang.. F.cks. 80 tegns 
kort og Simons Basic. 
Molherboardene er nuturligvis 
med omskifter. 

2 pone 241 

5 pone 741 



DE BEDSTE B0GER 



fra 1st Publishing (Data Becker) 



Tricks & Tips 

Bogen giver (deer nl, hvordan man 
liivcr euekttvc programmer, ved brug 
;i( uiullige programeksemplor. Den 
danne t baggrund for Ittsntng af storre 
npciiver Pns kr. 248,- 
"I ricks and Tips d if>k med 
allc programmer kr. 85,- 
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Adv. Machine .y 
Language U» 

Dcnnc bog er cn lortsaittclse af 
Machine Language bogcn. og gar 
mere i dvbden med maskinprogram- 
menng. Bogen er uundvuriligfordcn. 
sum t»nskcr at blivc bedre i at pro- 
grammcrc i maskinkodc , Prls kr. 248,- 



Ana tomy of 64 

Bogen gar fuld^cndig i dvbden med 
Commodore 64 oe dens vlrkemadc. 
Den hai t ek*. en deraljerct ROM list- 
rtiiigmtd fork) tiring. DcsuJcn mange 
eksempler pd programmer 
!.a man kan prwve del hele 
I praksts. Prts kr. 248,- 
Bogen enhver Commoilore 
eier burdc haw. 



Idea Book tff 

Bogen er en forstsritckc 

til Tricks & Tips. Den hja-lpcr cn igang 

med sttfrre program mcringsopgavcr 
oganalyserer forskellige sMrre 
programmer. Bogcn der skullc sin pi 
Dm hyldc. Prts kr. 248,- 



Anatomy of the 1 541 

Boeen giver cn fuldstxndte besknvcl- 
5c uf. hvordan Du bcdsi uonytter (it 
dm VC 1541. Bogcn indcholdcr de*- 
uden en total ROM-listning a[ 
QOS'en. Bogen man ikkc 
kan undvxrc Prt» kr. 248,- 



Graphics Book trt 

Har du prohlemer meil it 

lave giaiik pa Din Commodore (>4. 
Ikk« mere! Bogcn hnrcksemplcr pa. 
hvordan man kan hruge Iwjupltw* 
nmesgrafikken pa Commodore n4. 
Prls k>. 248,- 



Machine Language 

Maskinspiogvprogrammering ci 
yderst fleksibelt og megei hurtigcrc 
end Basic. Bogen er cn begyndcrho 
og lortrelleromde (rnrndleggende Iv 
erebcrindenfor maskin- 
koden- 0wkcr Pu ot tere 
maskinkixJc - her et boKcn 
du h;irdti»mt om. 
Priskr. 248,- 



Peeks & Pokes 

Bogcn er et opsfugs- 
vairk ul at bryge allc de nytugc at 
ser. der findes pi Commodore M 
Denne bogomiiandlcrdet, mange 
Commodore 64 ejefe har savnet 
Prta kr. 225,- 
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Til lykke 

Et enkelt Sr lyder Ikke umiddel- 
bart af rneget, men indenfor 
bladbranchen, hvor nye produkter 
skyder op som paddehatte, for 
derefter pludselig at forsvinde 
igen, er en fodselsdag pS et 3r 
vaerd at markere. 

Det har vaeret et seerdeles po- 
sitivt 5r. Vi startede med at skulle 
udkornme hver anden maned. Sa 
kom der et ekstranummer til. sa 
gik vi op til otte udgivelser om 
aret og nu p£ taersklen til et nyt 
ar, kan vi konstatere, at der er 
grundlag for en manedlig udgivel- 
se. Vi kommer f remover den 8. i 
hver mined, bortset fra januar og 
jutl. 

VI har ogs£ kunnet konstatere 
en anden posit iv udvikling. VI 
modtager en stadig stigende 



maengde programmer fra leeser- 
ne, og vi er imponerede over kva- 
llteten - den er langt hojere end 
for et ar slden. 

Vores Seven Up konkurrence 
var en stor succes, og mange ud- 
trykte ansket om flere konkurren- 
cer. Derfor udskriver vi en fod- 
selsdagskonkurrence, sorn I kan 
lasse om andetsteds i bladet. 
Denne gang er emnet lidt mere 
seriost, men vi er ikke i tvivl om, 
at laeserne har evnerne til at lose 
det. 

Til sidst en tak til laeserne for 
en positiv medleven i bladet, tak 
for gode rad. tak for ros og tak for 
berettiget kritik. 

I sidste ende er det Jeres 
skyld, at det er gaet godt. 
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Af Jorgen Jergensen 
De fleste af os synes, det kunne 
va?re sjovt at f lyue. men alligeve I er 
det de faerreste af os, der nogen- 
sinde kommer til at sidde bag 
»pinden« i et eller andet fly. Derfor 
har flyslmulatorspil altid vaeret po- 
pulcere, og der kommer ustandse- 
lig nye til. 

Du kan i dag vaelge, om du vil 
keempe i et fly fra Lverdenskrig, 
eller du forelrsekker en sa fredelig 
mission som en lur I rumfaergen for 
at anbringe en lobsk satalit i sin 
rette bane. 

I disse tilfaalde er flysirnulatoren et 
spil. hvor man bliver anbrag! i coc- 
■kpiltet i pilotens sted med diverse 
instrumenter og udsyn over det om- 
rade, man flyver i. 

For at gore det hele mere mter- 
essant, er der otte haagtel en eller 
anden »mission« pa spillet, saledes 
at der er et formal med ffyvningen 
Det varierer meget fra spil til spil, 
hvilke dele man prioriterer hojest. 
og vi vil i det efterfolgende kikke lidt 
pa" nogie af de enkelte simulatorspil 
- nye som gamle. 
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Solo flight 

Dette program er allerede anmeidl 
i RUN nr. 1/1984, men skal alligevel 
kort medtages for oversigtens 
skyld. 

Solo flight er et »klassisk<< simu- 
latorprogram forstaet pa den made, 
at det er selve flyvningen (start, 
vandret flyvning og landing), der er 



det primaere, Man flyver efter el kort 
over tre forskellige landomrader 
med hver 7 landingsbaner. De for- 
skellige landomrader har forskellig 
svasrhedsgrad, og man vaslger ogsa 
selv sit niveau som pilot. 

Det svasreste ved flyvning erv al- 
tid landingen, og dette spil er da 
heller ingen undtagelse Men der er 
ogsa andre udfordringer. idet vejret 
(sigtbarhed. retning og vindstyrke) 
kan forvasrres. Ligeledes kan tek- 
nikken svigte, og instrumenterne 
saatte ud. 

»Missionen«i dette spil er, at flyve 
postssekke mellem forskellige luft- 
havne udvalgt tilfaeldigt af compute- 
ren. Man toretager 5 flyvninger, og 
far point alt efter. hvor godt man 
slipper fra det I modsaatning til sa 
mange andre spil. har man her kun 
eel »liv« - sa pas godt pa det! 

Selv om jeg gennem det sidste 
ars tid har "Uddannet» mig til en ha- 
bil Solo flight-pilot, kan jeg stadig 
finde nye udfordringer i dette spil, 
der horer til mine favoritspil 

Flight Simulator II 

Dette er flysimulatorenes Rolls Ro- 
yce. Prisen er ogsa derefter - lidt 
under 1000 kr Det er mange penge 
- for mange, men er man b»dt af den 
slags spil er det svsert at undvaere. 

Det vil tore for vidt, at gennemga 
det i detaljer. det vil kraeve en lang 
artikel for sig selv. 

Dermedfolgerforuden disketten. 
to tykke vejledninger pa hver om- 
kring 100 sider Derudover findes 
flykort over 4 omrader i USA. Spillet 
er -Real-time-, og det bevirker, du 
kan flyve rundt I timevis for at na 
frem. Det kan virke lidt ensformigt. 
og man kan da ogsa »snyde" sig 
hurtigere frem pa to mader 

Man kan enten skifte til sakaldt 
•>slew mode» og rykke hurtigt frem. 
Man kan ogsa ga ind i et parameter- 
billede og direkte angtve sin posi- 
tion. I samme billede kan man ogsa 
angive de betingelser, man onsker 



at flyve under. Man kan bl.a. angive 
vinqYetnlng og styrke i tre forskel- 
lige hojder. to separate skyHag, dog- 
nets tidspunkt og arstiden. 




Man kan gemme sine egne para- 
metre pa diskette, og man kan 
vaslge flybetingelser fra Easy Flightv 
til Bad Weather Flight, 

Nok om det. Det tager lang tid at 
lasre at flyve med Flight Simulator II. 
Easy Flight er meget »overbas- 
render og tager det ikke sa noje, 
om man lander midt i lufthavnsbyg- 
ningen i stedet for landingsbanen. 
Men selv det er svaert - forbandet 
svaert. 

Nar man foler, man er ved at fa 
lidt magt over styrepinden. og er 
traet af at baenge I luften over USA. 
kan man melde sig til et lille rask 
luftslag i 1 . verdenskrig. Nogle af de 
moderne navigationsinstrumenter 
bliver fjernet, og fax monteret bade 
bomber og maskingevasr. 

Samtidig bliver landomradet kraf- 
tigt beskaret En flod i midten deler 
fsedreland fra fjendefand. Du skal 
selvfolgelig odelsegge fjendens ba- 
ser, fabrikker og fly, sidstnaevnte 
har den kedelige egenskab. at de 
angriber hver i sin »stik 

I det hele taget var der mere slit 
over krige dengang, for du kan trygt 
flyve rundt indtll det ojeblik. hvor du 
med et tryk pa W-tasten erklaerer 
krig! 

Derefter giver jeg heller ikke 
mange sure si!d for dit liv' 

Flight Simulator II har en fremra- 
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gende grafik, lyden - ja, motorlarm 
er nu engang motorlarm. Variations- 
mulighederne er uendelige, og 
svaerhedsgraden gar fra svasr til 
sindsyg svser. 

Pragtfuldt spil - men a!t for dyrt. 



Space Shuttle 

Hvad med en tur i rumfaargen. Sate- 
litterne er begyndt at ga ud af deres 
baner (det er nok russerne), og skal 
bringes pa plads 

Det ser spsendende ud. nar man 
starter. Det hele ryster og baevrer, 
og man stiger op gennem atmosfas- 
ren. Ret hurtigt kommer man i bane, 
men opJevelsen i det ydre rum er 
iige sa afvekslende som en rotur og 
Atlanten i vindstyrke 0. 

Satelitterne er ikke saarlig svaare 
at komme pa livet af, og selv om 
nedturen kan volde en del proble- 
mer. er det et spil, man ret hurtigt 
bliver treet af. 

Selvfolgelig er der flere svsBr- 
nedsgrader, men alt i alt er spillet 
lidt skuffende. 

Super HUEY 

Hvis der skulle vsere nogen, der ikke 
ved. hvad en Super HUEY er, kan 
)eg oplyse. at det er en helikopter - 
endog en saerdeies avanceret en. 

De! er noget anderledes at flyve 
en helikopter, og man skal vasnne 
sig til, at joystick'et her har adskillig 




flere funktioner. -Pinden- har for- 
skellige funktioner alt efter. om fire- 
tasten er trykket ned eller ej. 

Men fat mod. Du modtager com- 
puterstyret undervisning. nar du 
starter med at vselge den af de fire 
muligheder, der hedder -Flight In- 
struction-. I helikoptorens cockpit 
ftndes (ligesom i virkeligheden) en 
computer, som du kommunikerer 
med. Den dirigerer dine forste flyv- 
ninger ved pa skaermeo at angive. 
hvad du skal foretage dig. 

Der er mange ting at holde rede 



pa, men det er egentlig ikke svasrt, 
at slippe fra flyveturen med livet i 
behofd. Du skal imidlertid vasre pa 
vagt hele tiden. Der skal ustandselig 
foretages smakorrektioner for at fa 
det hele til at flaske sig. Hvor du I 
Flight Simulator roligt kan ga ud og 
lave kaffe. medens maskinen blafrer 
over praarien, kan du her darligl 
slippe ioystick'et for at drikke en 
tar. 

Det er et sjovt spil, og det er an- 
nar man prover de "missioner-. 




man kan blive sendt ud pa. 

I -Exploration-' bliver man sendt 
ud over et uudforsket omrade for at 
korttegge det. Man kan ogsa vaslge 
»Rescue«. og skal sa undseette mi- 
lilaert persons), der er i vanskelighe- 
der i et bjergfyldt omrade. Deres 
rute kendes rkke, og man ma selv 
lokalisere dem og prove at sarnie 
dem op. hvis det er mutigt - med 
den begrsensning, at man kun kan 
have to passagerer 

Selvfolgelig findes der ogsa en 
-Combat" mulighed, hvor man bli- 
ver sendt ud i direkte krigshandlin- 
ger. Man har her bade maskingevee- 
rer og bomber at forsvare sig (an- 
gribe) med. 

Super HUEY er et flot og spaan- 
dende spil. Brugervejledningen er 
er fyldestgorende, og ikke sserlig 
lang. Den er pa engelsk, og ]eg ved 
ikke, om Twiligt har faet lavet en 
dansk version. Det er heldigvis de- 
res politik efterhanden. Jeg testede 
en kassetteversion, og her var det 
besvaerligt med de forskellige ste- 
der pa bandet. man skulle indlseses 
fra - afhsengig af hvilken mission 
man valgte. Alt i alt et anbefatelses- 
vserdigt spil. 

MS Strike Eagle 

Der er skrevet meget i pressen om 
F-15. og her erdet spaendende at fa 
en lille fornemmelse af, hvilken 
uhyggelig avanceret teknik, der llg- 
ger i et moderne jagerfly i dag. 



Der er en diger vejledning pa 36 
sider. som Twilight har oversat. 
Oversaettelsen er uden billeder, og 
henviser side for side til den engel- 
ske vejledning. 

Der er ikke nogen start eller lan- 
dingsprocedure i dette spil. Det 
drejer sig udelukkende om flyvnm- 
gen og losningen af de odelasg- 
gende opgaver. man blfver sendt ud 
pa. Det er ikke alene en kamp mod 
fjenden. men ogsa en kamp mod 
tiden (braandstoffet), Der er ikke 
megen [id til at udfore sin mission, 
og man skal vasre rilbage til sin 
base, for brasndstoffet slipper op. 

Flyet er armeret med forskelllge 
typer missiler, bomber og rnaskin- 
kanoner. Desuden har man forskel- 
Iige forsvarsm idler mod fjendens 
varme- eller radarsogende missiler. 

Der er forskellige krigsomrader, 
Libyen. Egypten. Syrien. Irak og 2 i 
Vietnam. 

Hastigheden er hoj, tmgene fore- 
gar hurtigt og ens blodtryk stiger 
faretruende. Det er et barsk spil. 
men det er alligevel svaert ikke at 
blive grebet af det. 

The Dam Busters 

Vi er ombord i et -Lancaster MK III- 
- et bombefly fra anden verdens- 
krig. Missionen er at bombe tre 
daemninger - deraf navnet. Der fin- 
des en startprocedurer i svserheds- 
grad 3, men ellers er det i luften , det 
foregar. 

Nu er sadan et bombefly beman- 
det med mere end en mand, s& der 
erv nok at gore, nar man ene mand 
skal gore det ud for en hel besaat- 
nmg Der er otte skaermbil1eder,.du 
kan skifte imellem. Det forste er 
selvfolgelig pilotensssede. Derneest 




er der en frontskytte, en agter- 
skytte. bombesigtet. navigatoren, 
forste- og anden-maskinisten, samt 
endelig el "Slatusbillede«, der viser 
hviike skader du har lidt og forvoldt . 
I forste svasrhedsgrad befinder 



Programmer 



Har du ikke tid eller lyst tlJ selv at 
indlaste de programmer, der er II- 
stet ud I RUN, kan du kobe dem 
samlet pa band (kr. 98.00) eller di- 
skette (kr. 108,00) incl. moms, 
porto og ekspeditlonsgebyr. 

Fra og med dette nummer, vil 
bandet eller disketten kun inde- 
holde Commodore 64 program- 
mer. Programmers til de andre 
computere vil bllve samlet for 
fem numre 2 gange om aret. 

Gratis gave 

Vorl programkartotek er omfat- 
tende, og vil vil derfor fremover 
gratis laagge et eller to kvalitets 
programmer ekstra pa bandet/- 
disketten. Hvad der er, vil vsere 
en overraskelse. Men du bliver ik- 
ke snydt! 

Bedste programmer fra RUN 

Vi har samlet de 15 bedste pro- 
grammer fra RUNs forste Sr pa en 
diskette (kun diskette) og saslger 
denne for kr. 108,00. Vi kan endvi- 
dere forteelle, at vi stadig kan le- 
vere »gamle« band og disketter, 
ligesom vort privatregnskab til kr. 
198,00 stadig kan leveres. 

Programmerne saalges kun 
mod forudbetaJing, check eller gi- 
ro (postgirokonto 1 48 31 61 K og 
husk at angive, hvilken program- 
samling, du bestiller. 



TUlykke 



Vinder af lodtraekning 

Den heldige vinder af lodtrasknln- 
gen fra sidste nummer blandt 
RUNs abonenter blev: 
F. Skeel Andersen 
Kongsdalvej 1 
2720 Vanlose 

Gevinsten, der nye 128'er vil 
blive overrakt, sa snart de kom- 
mer til landet. 
Vi onsker hjertelig tillykke. 



« du dig lige pa vej mod daammngen, 
hvor du kan ove dig i al »droppe« 
bom ben i rette hoje. pa rette sled 
og med den rigtige hastighed - 
uden at blive generet af fjentiige 
styrker. 

I mellemste svaarhedsgrad star- 
ler du i iuften over den engelske 
kanal, og endelig til sidst starter du 
fra jorden I det sydostlige England. 

Fra den position har navigatoren 
seks kort, som skal hjeelpe ham/ 
hende med at finde ve) mod malet 
langE inde i lyskland. 

Det er et meget flot spil, grafik- 
ken er helt i top, spillet er godt ud- 
taenkt og med mange udfordringer 
Det er ikke et spil man bliver tree! af 
efter en aftens forlob. 




Der er US Gold, der har fremstil- 
let spillet. Brugervejledningen er pa 
engelsk, men jeg mener, at Mogens 
Jensen fra Twiligt sagde noget om. 
at man var i fasrd med en dansk 
vejledning. 




Jump Jet 

Dette er det nyeste nye, og er kom- 
met pa markedet for kort tid siden. 
Spillet er lavet af ANIROG og impor- 
tes af Twilight. En meget. meget 
stor ros til producenten for bruger- 
vejledningen, Den er skrevet pa tt 
(') forskellige sprog og heriblandt 
ogsa dansk. Manualen skulle sale- 
des vsere anvendelig i hele den 
vestlige verden. De! eneste sprog 
jeg ><savnede« var portugisisk. Jeg 
haber, at den type vejledning vil 
danne skole fremover. 

Ifolge vejlednmgen er »JumpJet« 
et faelles navn, som gives til alle fly, 
som ikke behover start/landings- 
bane for at lette. Sa ved man det! 

Flyet befinder sig pa et hangar- 
skib, og starter og lander med lo- 
dretstillede motorer. Disse kan sa 
drejes forud og hell bagud for "nor- 
mal- flyvning. 



Der er fem sveBrhedsgrader, og 
her er det vmdstyrken og antallet 
fjentiige fly. der bestemmer svaar- 
hedsgraden. 

Det er paarelet at starte. Dei er 
heller ikke sa svsert at flyve vandret. 
det er straks sveerere at fa has pa 
fjenden - og det er nassten kompelt 
umuligt at lande det forbandede fly 
igen (selv i vindstiile). Bedst som 
man tror. man befinder sig i nojagtig 
position tl meter over landingsplat- 
formen, begynder computeren at 
hyle og en rod lampe lyser. Op igen 
nyt forsog - hvorfor ligger det fjoi- 
lede sktb Ikke stille! 

Na. det kan lade sig gore, men let 
er det i hvert fald ikke. Og det skal 
det vel heller ikke vasre, 

Meget. meget fornem gratik og 
gode udfordringer. ■ 
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Klfpkuponen ud 

og send den i en lukket konvolut til 
RUN Commodore-magasin, 
Torvegade 52, 1400 Kobenhavn K 



Ja tak! 



□ Jeg Brisker at tegne et heJarsabonnement (1 0 numre) 
og sparer 20%. Fodselsdagstilbud kr. 196,- 

□ Jeg onsker at tegne et halvarsabonnement (5 numre) 
og sparer 1 5% . Fodselsdagstilbud kr 1 04,- 

Jeg onsker bladet leveret fra nr. 



Navn: 



Adresse: . 



Postnummer; 



.By. 



HVORFOR HAR DIN FANTASI 

BRUG FOR EN COMMODORE COMPUTER ': 





I 



Forrli din lauLtsi ckj en ConmnKloie 
Computer ei (Nhi (lerieWfikiimbtiBlion: 
an hail UriKje dens Hasten uendeiiye 
mirfinlieder - og den kan goffi tnutj at din 
tantaa. 

Ttinli en Commodore Computers 
louiske hjeme i piaksis er naisten iiden 
gra>jisei Hvao enten du uruaer den til at 
bcreyne og fouidstge indvikleite sani- 
menhawyfr. efler in at stimutee den lille 
sprlled|i*vel Her \o lindes incle i osalle 

Fartli en Commodore Computer 
giver did miiligheder Inr a( nvergadig 
selv river erteste dag 

Og tordi Commodore ikKe bloter 
kendl lot sine computers til ertivervslivet, 
men rait" taktisk a verdeis forende leve- 
randor al h|emmecontpirtete - og liar 
verdeusstorste udwlg at programmer! 

Derlor er del maske heller ikke kun 
dm ianlas. der har Drug for en 
Commodore Computer. 



Cr 

Commodore 

Fbrcf/ fremtiden fortaengst 
erbegyndt 



smdTips 

64 EREtl 



Af Steen Schmeltzer 

Horer du til dem, der har provet at 
lage en sikkerhedskopi at et dyre- 
kobt program, for derefter at finde 
ud af at sikkerhedskopien ikke vir- 
ker? Hvis ja, undrer du dig mask© 
over, hvordan det kan ga til 

Disketlen og programrtiet er bie- 
vet beskyttel pa grund af den sta- 
digt stigende piratkopiering Der er 
mange mader at beskytte den slags 
pa. Det vil ikke her blive robet, hvor- 
dan man beskytter mod piratkopie- 
ring. men derimod hvordan du selv 
kan -beskytte- dine egne program- 
mer - dog ikke mod kopiering. men 
mod at blive listet og sendret. Det 
ma her vaere pa sin plads at tordne 
mod plratkopieringen. Det er pa 
grund af denne kopiering, at pri- 
serne pa ordentlig software er ste- 
get op I et prlsleje. hvor den ikke 
horer til Det ville maske hjaslpe, 
hvis priserne blev sat kraftigt ned. 
Men tilbage til selve beskyllelsen 

Det er muligl, at skjule enten en 
hel programlinie. dele af en pro- 
gramlinie eller blot lade limenumrne- 
ret blive staende synligt. Her er et 
eksempel: 

10 POKE 53280,0 
Hvis du nu taster folgende: 
10 POKE 53280,0. REM- 

herefter tastes RETURN. Deref- 
ler placeres cursoren lige efter ■• 
Hold SHIFT nede og tast INST/DEL 
20 gange. Slip SHIFT og tast tast 
INST/DEL endnu 20 gange. Nu kan 
du f.eks. skrive dtt eget navn. Til- 
sidst tastes RETURN. Hvis du har 
gjort det ngtigt. skulls der sta 20 
stk T er i negativ skrift, efterfulgt af 
dil navn. Det er vigtigt. at du ikke 
afslutter linien med et anforselstegn 
etter dit navn. 

Hvis du lister linien nu, vil der kun 
sta dit navn, men POKE komman- 
doen er der endnu, og vil blive ud- 
fort ved RUN 

Antallet at SHIFT + INST/DEL er 




bestemt af placeringen af REM. Du 
kan aitsa selv oestemme, hvor me- 
ge1 der skal skjules. Der er dog en 
lille hage ved denne metode. Hvis 
du lister programme! \i\ en printer, 
vil alle tinier blive udskrevet. ogsa 
det du har skjult. Det er jo noget 
vserre noget, men hvis du nu indta- 
ster POKE775.200 i den forste pro- 
gramlinie. vil det bevirke. at pro- 
gramme! ikke kan listes, Hvis du al- 
ligevel vil lisle det, skal du indtaste 
POKE 775.167, 

Hvis du er lidt mere ondskabs- 
fuld, skal du i den forste programli- 
nie indtaste 

POKE 774.248:POKE775,252. 
Hvis programme! nu forsoges Ustet. 
vil computeren udfore en »warm re- 
set". Hukommelsen Oliver slettet. 
og start skaarmbilledet vil komme 
frem. Dette er det samme som SYS 
64738. 

For de rneget ondskabsfulde er 
det ogsa muligt, at fa diskettestalio- 
nen til at udfore en tormattering af 
disketten, hvis der pilles ved pro- 
gramme!. Hvordan det gar til, vil 
ikke blive robet her — det erfaktisk 
lidt for ondskabsfuldt Der kan jo 
ogsa vaare aridre programmer end 
det beskyttede pa samme diskette- 
side. 

Hvis RUN/STOP-RESTORE 0n- 
skes sat ud af funktion. skal der ind- 
tastes POKE808.2. For a! 1a den til 
at virke igen, skal der tastes 
POKE808,t9. 

Pa programsiderne kan du finde 
et lille program, der kan bruges til at 
udskrive forudbestemte programli- 
nier pa en printer I dette program 
vil alle de ovennasvnte metode r 
vserebrugt De vil dog vaare beskyt- 
te! mod virkning med e! REM foran, 



Men hvis du fjerner REM'erne, kan 
du prove, hvordan de virker. Selve 
programme! lasgges foran det pro- 
gram, du selv er ved at lave 

Du kan mens du programmerer 
udfore et RUN Du vil sa blive bed! 
om et navn pa den subrutine eller 
de linier, du vil udskrive, og derefler 
vil du blive spurg! om start linie og 
slutlinie. Derefter vil de linier blive 
udskrevet til printeren Dit eget pro- 
gram vil forst blive bragt til udfo- 
relse, hvis du taster RUN 100. 

Et lille tekstbehandllngs program 

Dette er vel nok det mindste tekst- 
program. der findes. Det bruger 
64'eren som skrivemaskme Der 
kan hojst indtastes 76 karakterer pr. 
Iinie_ Hvis der indtastes flere, vif de 
Ikke blive printet. 

Hver linie afsluttes med RE- 
TURN. Inden der tastes RETURN, 
kan der foretages alle de aendrin- 
ger, der er nodvendige. Der kan 
nemt foretages flere forbedringer til 
programme!, men del m3 I selv 
gore. 

10 POKE59468.12 
12 QPEN4.4 
14 INPUT AS 

16 IF AS -THEN CLO- 

SE4;END 
18 PRINT#4.A$ 
20 AS= « - 
22 GOTO 12 

Yderligere forklaring skulle vaere 
overflodig. Er der nogle af laeserne. 
der har flere tips og ideer, er I megel 
velkommen til at sende dem ind til 

os. 

Programlistning side 28 
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I^utt tetter, 

OKIITIdTE 20 



Af Flemming Lerbaek 
OKIMATE 20 er navnet. Sma er ma- 
lene, men stor er ydeevnen. Be- 
skeden er vasgten, men glansfuld 
er resultatet. Forkert er den mar- 
kedsfort - i hvert fald I Danmark. 

Del store Japanske pnnterfirma OKI 
er kendt for sine hurtige printere i 
business-klassen. Det er Microline 
serien. Nu er man begyndt salget af 
den naastmindste printer fra den ja- 
panske ieverandor. I Danmark har 
man teenkt sig Okimaten tilslultel en 
PC'er. men i mine ojne passer den 
langt bedre til de mange hjemme- 
computere. 

Pa en made er Okimate 20 veleg- 
net til PC'erne. Den har et fremra- 
gende skriftbiltede, som jeg kun har 
set bedre pa de nye laserprintere. 
Prisen pa kr. 4.200 burde gore den 
velegnet til el bredere marked. Der- 
for har vi testet den pa en Commo- 
dore 64. 



Pa del amerikanske marked ssel- 
ges printeren med et specielt 
Plug'n print mudul til 64'eren. Den 
f&s desuden med moduler til seriel 
og paralleludgange og et modul 
specielt til IBM. 

Specielmodulerne mdehotder de 
fonts d.v.s. skrifitegn. som er spe- 
cielle for netop denne eller hin ma- 
skine. Pa den model, vi testede, var 
der et parallel Plug'n print modul. 
Modulet kan i ovrigt skiftes med et 
snuptag, og indeholder desuden 
rnuligheder for, at forudindstille det 
til otte tandes specieltegn f.eks. 
danske eller franske tegn. Der kan 
ogsa omstiiles mellem 7 eller 8 bits 
kommunikation, om der skal vasre 
automatisk vognretur og meget an- 
det. 

Okimate 20 har mulighed for at 
arbejde i farver. Syv farver kan bru- 
ges ved almindelig skrift men helt 
op til 50 farver kan bruges til dump- 
ning af hojoplosningsgrafik. Den ar- 
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n i. ii mi mm m i iiiiw 
Parveb&ndet overst ligger i en kas- 



sette. Til venstre hgger Plug'n mo- 
dulet. og den tille Mat erprinterho- 
vedet. 

bejder med farveband i kassetter, 
som for det sorte bands vedkom- 
mende har en kapacitel pa ca 75 
teKststder I A4- med dobbelt linteaf- 
stand - eller ca. 120.000 karakterer. 
Farvekassetten har et farveband 
med tre farver efter hinanden Det 
vil sige, at den gennemlober hver 
linie tre gange for at danne det en- 
delige farvebillede. Det forklarer 
ogsa den relativt mindre levetid pa 
ca. 35.000 karakterer. som larve- 
bandet har 

Printeren er t stand til at dumpe 
f.eks. billeder tremstillet med "Ko- 
ala Painter- eller -Paint Magic-. 
Dumptiden afhsenger af billedernes 
storretse, men en tegnmg pa ca. 
20x15 cm vil tage en halv times tid. 

Det er endnu Ikke lykkedes im- 
portoren Technitron ApS i Alberts- 
fund at prissastte tilbehoret, men 
omregnet 1ra udenlandske priser, vil 
dumpnmg af en tegnmg koste ca 
8-9 kroner. Til gengseld er Okimaten 
fremragende til f.eks. overlay-ark 
idet den bedste trykkvalitet kommer 
frem pa disse glatte overflader 

Med maskinen folger en velskre- 
vet manual, samt en manual over 
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HER ER PICA, OG DETTE ER ELITE, OG HER ER KONDENSERET SKRIFT. 

PICA (10 CPI) S CP I 
ELITE (12 CPI) e> CP I 
KONDEHSERET (17. 1 CPI) 3,5 CP I 

Data speed dvs. hurt i gtr-yk - 
Korrespondance kvalitet er flot. 

SSdan er den norroale skrift ud , og s£dan ser ITALIC ud 
OK I MATE' " 

H 2 0 er den kemiske formel for vand 



del specielle Plug'n print modul, der 
er monteret i maskinen. Samtidig le- 
veres en diskette med instruktioner 
og programmer til bl.a. dumpning af 
farve/grafik skaermbilleder. 

Med det parallelle modul. vi te- 
stede, kunne vi tkke lave specielteg- 
nene, men importoren er aben over- 
for at tage commodoremodulet 
hjem. hvis der viser sig en efter- 
sporgsel. De! skutle man tro der var. 
nar der star over 70.000 64'ere her 
i landet! Printeren adlod de ordrer, 
den skulle ifolge manualen, og den 
gennemforte den printertest, der 
folger med i programpakken tit 
Commodore 1541 disket testation, 

Okien skriver med 40 tegn i se- 
kundet rned skonskrift - og der er 
virkelig tale on skonskrift. Man kan 
skrive med op til 80 karakterer pr 
linie. men sa gar det ud over skrift- 
billedet. Det er dog stadig bedre 
end Commodores egne printere. 
Dog skal man huske pa, at der her 
ikke er rnulighed for gennemslag, 
da typerne dannes af et varmele- 
geme med hele 24 etementer (9 el- 
ler 12 er det almindelige) 

Ud over de indbyggede tonts, er 
der rnulighed for selv at definere 
tegn via software. Der er saledes 
ingen grsenser for. hvad man kan 
bruge printeren HI. Som det ses af 
skriftprovene, har den alle de mulig- 
heder, man kan onske sig. 

En hurtig konklusion ma nok ga 
pa, at Okimate 20 er velegnet bade 
som PC-printer og til hjemmebrug. 
Skulle importoren ikke fa det spe- 
cielle Commodore modul hjem, kan 
den fungere med et interface, som 
vi fik fra Editor Electronic Det slut- 
tes direkfe til den seks-polede ud- 
gang pa f ,'flks. diskettestationen. In- 
gen software er nodvendig. og del 
er en fin lille sag. som jeg varmt vil 
anbefale - ogsa fordi den er billig 1 



DEN NYE COMMODORE 




DEN IBM KOMPATIBLE PC 10 
SENSATIONSPRIS: 19.950 KR. 
EXCL MOMS. 

PC 20 med 10 MB Harddisk kr. 30.950 

Den nye Commodore PC er en fantastisk Kraftig 15-BIT 
computer. Den kan bruge alt software, der er 
udarbejdet efter den verdenskendte MS/DOS- 
standard. Hvilket betyder, at der til Commodore PC er 
et rneget bred! udvalg af savel branchespecrfikfce - 
som neutrale software mullgheder. 

• INTEL 8088 16-BIT processor. 

• Hovedlager-kapacitet 256 KB RAM. kan internt 
udvldes til 640 KB. Extern udvidelse til 1 MB er 
muligt. 

• Dobbelt floppy-disk 2x360 KB (som ekstra udstyr 
integreret to MB hard disk). 

• Monochrome monitor med ho| oplesningsgrad 
(gran). 

• Dansk tastatur, 

Vil De tajre den nye Commodore PC at kende - s3dan rent 
professionelt. siring tilOatacare patlf. (01)705858 




DATAWARE 



T6rnv»( 151. ov»ffor P«dov-<i Contrum 



Commodore 

- tordi tremtiden tortmngst 
er begyndl 
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INPUT/OUTPUT 

Af Tor Engebakken 




INPUT/OUTPUT er RUNs laaser- 
brevkasse. hvordu har mulighed for 
at fa svar pa nogle af de problemer, 
du gar 09 tumler med. 

Desvaarre kan vi ikke na at besva- 
re alle de breve, vi modtager. Vi 
provei at fa sa mange med som mu- 
ligt og udvaelgerdem, vi mener, der 
har bredest interesse. 

Commodore-interesserede, som 
har sporgsmal eiler tips at bidrage 
med, kan skrive til Tor Engebakken, 
Brandvoldgatan 1, 2000 Lillestrom, 
NORGE 



INPUT 

Jeg er en Commodore-eier, som la- 
ser RUN med star interesse. Det er 
artig i 1& et blad, som etter min me- 
ning er bedre enn de fleste andre, 
som er pi markedet. Jeg tenker da 
speciett pa programlistningeme., 
som 1 de tleste andre blader stori 
sett er spiff, som det gir 100 av pa 
dusinet Jeg haper. du kan gi meg 
et par tips. 

1. Hvordan bruke kontrollprogram- 
met til et program, som jeg ma fade 
inn fra kasett? 

2. Hvordan kan jeg bruke grafikk 
(Koalapad) sammen med en scroll- 
rutine? 

3. Hvordan fjerne sporsmilstegnet 1 
INPUT? 

Haper at du eller noen av leserne 
kan gi meg svar pa dette. 

Med vennlig b/lsen ' 
Terje Syversen 
Jens Bjelkesgt. 39 A 
05662 Oslo 5 
NORGE 

OUTPUT 

1. Jeg mener at forsta dU forste 
sporgsmal pa den made, at du er 
ude etter, hvordan en LOADER vir- 
ker\ Hvis du har deit dit program op 
i Here dele, er det jo rart. at fa ind- 
laast alle delene. for du starter pro- 



grammet Du kan bruge en LOA- 
DER af denne type. 

10 A-A + 1 

20 IFA= tTHENLOAO..DEL1«,1.1 
30 IFA = 2THENLOAD"DEL2",1 ,1 
40 IFA = 3THEN 

Dette program gdnytter det fak- 
tum, at variablerne ikke bliver resat. 
nar du loader et program md fra et 
andet. Samtidig vil Commodore au- 
tomatisk kore det BASIC-program, 
som ligge i hukommelsen efter at 
programme! er lasst ind. Eftersom 
man indlasser den ene del efter den 
anden, vil A derfor blive foroget 
med 1. og IF saatningerne vil sorge 
for, at alt kommer tnd. 

Nar man har indleest den sidste 
del, startes prograrnmet op Hvis 
det er et maskinkodeprogram, ind- 
saatter man ganske enkelt denne 
del i LOADEREN: 
100 SYS 49152:REM START AF 
MC-PROG 

Hvis det sidste program, der skal 
indlaeses. er et BASIC-program. be- 
hover man ikke at have nogen spe- 
cie) kommando for at slarte dette. 
Programme! kores jo automatisk, 
nar det bliver fsest ind fra et andet 
program. Man imidlertid huske 
pa, at variabel-pointerne ikke bliver 
resai. Dette er ikke noget problem, 
hvis LOADEREN er lasngere end 
prograrnmet, man skal kore, men 
hvis det omvendte er tilfaeldet (og 
det er det jo som regel), vil vanab- 
lerne havne midt inde i prograrnmet 
med en sikker CRASH som resultat. 
Wan ma derfor sikre sig. at det sid- 
ste program saetter variabelpoin- 
terne til de ngiige vasrdier. Hvis du 
lader denne linie vaere den forste 
linie i det sidste program, som ind- 
laases. har du rettet op pa dette; 
1 0 POKE45,PEEK( 1 74) POKE- 
46,PEEK(175):CLR 

Dette saatter stamen af variab- 
leme til slutningen at programme!, 
og alt skulle vsre i bedste orden! 



2. At scrolle en hojoploselig skaarm, 
er hverken enkelt eller hensigts- 
masssig. Som ciu sikkert ved, opta- 
ger en hojoploselig skaarm 8K-by- 
tes. Hvis scrollningen skulle have 
nogen mening. matte du bruge sa 
meget af hukommelsen til data, at 
der ville blive temrnelig lidt tilbage til 
noget andet Nedentor finder du en 
rutine til at scrolle en almmdelig 
skaarm. 

3. Sporgsmal stegnet kan fjernes 
ved at abne en fil til tastaturet, og 
hente INPUT derfra i stedet for at 
bruge den saa-dvanlige INPUT. Prov 
eksemplet nedenfor. 

10 POKE45,PEEK(174):POKE46, 
PEEK<175)'CLR 

10 OPEN1,0:REM DEV = 0 TASTA- 
TURET 

20 INPUT #1, A PRINT 
30 PRINTA 




INPUT 

Hej Tor 

Jeg er 15 ir, og har en C64. Jeg har 
nogle problemer med spritekollisi- 
onsregistrene (SD01E og $D01t). 
Hvis jeg /.eks. vil kunne flytte en 
sprite rundt p£ sksermen, undtagen 
hvor der er tekst, si bruger jeg 
spnte/baggrundsregisteret 
(SD01F), og det virker da ogsi fint 
1 BASIC. Men nar jeg vi gore det 1 
maskinkode, si virker det ikke som 
det skal. Jeg h$ber, du kan hjselpe 
mtg, evt. give mig et eksempei 

Venlig hilsen 
Jens Jorgen Mortens en 
Giesegardsve/ 39 
2650 Hvidovre. 

OUTPUT 

Princippet er det samme, om du 
programmerer 1 BASIC eller ma- 
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skinkode. Hvis en sprite er involve- 
rel i en (collision, vil den korrespon- 
derende BIT i D01F blive sat. Nar du 
laser tra dette register, vil det au to- 
matisk blive registreret, men ikke 
naeste RASTER-runde. Rasteret 
star jo til ca. 60 gange i sekundet. og 
du ma derfor sorge for, at der op- 
star en "delay", saledes at rasteret 
far tid til at blive opdateret En an- 
den ting, der ser ud til at matle ta- 
ges hensyn til (fundet ved hjaalp at 
prov og fejl metoden). er at selvom 
du lasser fra registeret, sa vil sprtten 
jo fremdeles vaere i kontakt med 
baggrunden. Dermed bliver registe- 
ret jo sat igen. En brugbar made at 
komme uden om problemet pa, er 
at lade spriten foretage et I i lie hop 
tilbage i den retning, den kom fra. 
Dette er en teknik, som er meget 
brugt i kommercielle spil. og pro- 
gram 1 viser et eksempel pa. hvor- 
dan dette kan gores. SOURCE-list- 
ningen er kommenteret, sa det 
skulle ikke vsere noget problem at 
forsta. hvad der sker. 




INPUT 

Jeg vil sparge, om der findes andre 
diskettestationer, der passer til 
CBM-64. Kunne du i safald oplyse 
navn, pns og forhandler? 

Kan du eflers bekrasfte eller af- 
kraefte denne oplysning? 

Kan man via ei interface forbinde 
en -Shuggart 410- og en CBM-64? 

Hilsen Tomas Kirk 
Tannisbugtvej 86 
9881 Bindslev 

OUTPUT 

Jeg ved desvBerre ikke, om der er 
nogen nordiske forhandlere, som 
forer andre diskettestationer end 
1541. Jeg mener at have set en 
svensk sag engang, men den var 
ffaktisk mere langsom end 1541. s£ 
jeg gjorde ikke noget forsog pa at 
huske. hvad den hed! I USA er det 
derimod en ganske anden sag. To 
typer skiller sig ud: 

INDUS som er en single-disk, der 
er ca. 4 gange hurtigere end 1541, 
Den koster ca. $250.-. 

MSD er selve Rolls Roycen 
blandt Commodore-kompatibeit 
udstyr. Den leveres bade single og 
dobbelt, og overforingshastighe- 



den er optil 20(!) gange hurtigere. 
Prisen for en single disk er ca. 
$230.- og for dobbelt $460,-. 

Priserne erfundet i COMPUTE !"s 
Gazette, og hvis du tager chancen, 
kan du jo prove at bestille fra en af 
de mange forhandlere, som averte- 
rer i de amerikanske blade. 

-Shuggart 410« har jeg aldrig 
hort om! Har nogen af lasseme? 




INPUT 

Hej Tor! 

Jeg har et par sporgsmal ill dig an- 
gSende CBM-64, som jeg haber, du 
kan hjseipe mig med Jeg er sikker 
pi. at ogsa* andre CBM-64 venner 
kan fa glasde af dit svar. 

1. Hvordan kan jeg komme til at ud- 
nytte kanten af skasrmbiliedet? Jeg 
tsenker her pa, at diverse fast-load 
systemer benytter kanten /rammen 
til deres "farverulning«. Er det mu- 
ligt seiv at programmere noget tH- 
svarende, og hvordan? 

2. Hvordan basrer man sig ad med 
at lave en scroHning-. Aftsi en 
tekst, som korerhen over skasrmen 
fra f.eks. hojre mod venstre? 

Pa forhSnd tak 
Ofe Pedersen 
Varbergvej 
6100 Haderslev 

OUTPUT 

1. De farvestralende monstre pa 
skaarmen er ikke sa spaendende. 
som de ser ud. Eftersom loaderen 
indlasser BIT for BIT af programme!, 
forandrer den farven pa rammen at 
skasrmen Dette gores sa tilpas 
mange gange i sekundet, at rasteret 
ikke far tid til at opdatere hele skser- 
men, for den after aendrer farve. For 
at fa en tilsvarende effekt, ma du 
kaste dig over assembleren. BASIC 
bliver for langsomt. Begynd med 
dette title program, og eksperimen- 
ter med forskellige delay-looper til 
du far den effekt. du er ude efter. 

100 START LDA #$10 

110 STA TELL1 

120 LDA #$D8 

130 STA TELL2 

140 DEL3 LDX #$FF 

150 DEL1 LDY TELL2 

160 INC $D020 



170 DEL2 DEY 
180 BNE DEL2 
190 DEX 
200 BNE DEL1 
210 INC TELL2 
220 DEC TELL1 
230 BNE DEL3 
240 MP START 
250 TELL1 -BYTE0 
260 TELL2 .BYTE0 

2. Der er to mader at scrolle dele af 
skaarmen pa (Hvis ikke der er Here) 
Den ene er at scrolle selve karakter- 
saattet. Dette forudsaetter, at karak- 
tersaattet ligger i RAM. Den anden 
er mere fiffig. og benytter sig af, at 
videochip'en har en indbygget mu- 
lighed for softscroll (hvilket vil sige 
at scrolle pixel for pixel). Du kan 
scrolle bade horisontalt og vertikait, 
og vi skal her se pa den horisontale 
variant. 

Skaarmen kan flyttes 8 pixel's i 
horisontal reining. Detle styres af 
de tre laveste BITs i register SD016 
(53270). Prov denne lille program- 
stump tor at se effekten. 
10 FOR l = 0 TO 7 POKE 53270, 
(PEEK(53270)AND248|OR1 :NEXTI 
20 FOR J = 0TO 500:NEXT J.l 

Nar man skal scrolle skasrmen er 
det forste, man ma gore at saette 
skaarmen i 38 kolonner mode. Dette 
gores ved at saette bit 3 i adresse 
$D016 til 0 (POKE 53270.PEEK 
(53270JAND247). I realiteten er 
skaarmen stadig 40 kolonner bred, 
men kolonne 0 og 39 er daskket af 
kanten, og saledes usynlige. Det er 
i disse to omrader, vi skal laagge nye 
data, efterhanden som de scrolles 
ind pa skaarmen. 

Lad os som eksempel tage. at vi 
skal scrolle linie 10 til 18. Resten af 
skaarmen skal sta stille, og for at fa 
den til dette, ma vi benytte os af 
RASTER-interrupt (Nar vi saetter de 
tre nederste BIT'S i register d016. vil 
hele skasrmen scrolles, og det er jo 
ikke det, vi onsker). 

Vi programmerer derfor rasteret 
til at give os en interrupt, nar vt nar 
rasterlinien for den overste linie, vi 
skal scrolle- Nar vi far denne inter- 
rupt, saetter vi skaermen til scrol- 
Ivserdien, vi har for ojeblikket. 
(Denne ma lagres midlertidigt, savi 
ved. hvad vi skal laagge tnd i registe- 
ret). Derefter programmerer vi ra- 
steret ttl at give os en ny interrupt, 
nar rasteret nar den sidste linie, vi 
skal scrolle Nar denne interrupt 
kommer, saatter vi skaarmen tilbage 
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lil saadvanlig mode. Selve scrollruti- 
nen kores udenfor interrupted 09 
bliver kaldt 60 gange i sekundet . Af- 
hasngig af farten (bliver bestemt af, 
hvordan vi bevseger joysticken), 
scroller vi 1 til 7 pixels at gangen. 
Del eneste der mangier er. hvad der 
sker, nar vi har scrollet mere end 7 
pixels. Nye data ma nu lasgges ind 
i kolonne 0 eller 39. Program 2 ne- 
denfor foretager en enkel »wrap 
around", hvilket vil sige. a1 data som 
scrolles ud at den ene kant. bltver 
opsamlet og lagt i den anden. Skal 
du lave et spil med et storre land- 
skab, som scroller, ma du lave en 
egen rutine, som henter nye 
skaermdata. Husk at ogsa farverne 
ma lasgges pa plads! 



INPUT 

Er det ulovligt a t kopiere et program 
(spil etc.), hvis man ikke at pro- 
gramme! kan se nogen form for Co- 
pyright eller lignende? Jeg mener, 
at hvis forfatterne ikke har taget Co- 
pyright, har man faktisk solgu alle 
rettighedeme vedrorende program- 
met! Har jeg ret? I ovrigt tak for et 
godt blad. 

Hilsen Per Mikkelsen 
9090 Fjerritslev 

OUTPUT 

Lovgivningen er vel lidt uklar. nar 
det gaalder kopiering af et datapro- 
gram, men det begynder vel at blive 
accepteret, at data er mere end til— 
faeldige magneliske feller pa et 
magnetisk medium. Jeg vil tro. at 
den sarnme lovgivning. som gaslder 
for andet andsarbejde (boger, 
sange. film etc.) ogsa gaalder for 
software En ting er i hvert fald sik- 
kert : Du mister ikke rettighedeme til 
en bog, fordi du ikke tilfaeldigvis har 
skrevet ordet Copyright pa titelbla- 
det. 

Forhabentlig tager du derfor fejl. 
Hvis det ikke er ulovligt at kopiere 
og omsastte et plratprogram, slger 
al sund fornuft, at det burde vsere 
del! 



INPUT 

Jeg vil gerne vide hvordan: 

1. TURBQ-load fir dataoverforslen 
til at forego hurfigere. 

2. Jeg selv /aver en Hgnende rutine 
til CBM-64. 

3. Jeg kan bruge bade upper case 
og lower case samtidig med. at jeg 
bruger setvdefinerede karakterer. 

Venltg hilsen 
Kim Madsen 
5320 Agedrup 

OUTPUT 

1. & 2. Se min artikel andet steds i 
bladet. 

3. Som du ved, har du adgang til 2 
karaktersaat. Du kan skifte metlem 
dem ved at trykke SHIFT og COM- 
MODORE tasterne samtidig. Du 
kan ikke bruge de to karaktersaat pa 
samme tid, men karaktersaettet 
med Upper-lower case skulle anta- 
gelig vaare tilstraskkeligt. 

Jeg vil foresla, at du laver egne 
tegn, og laagger dem pa et sted i 
karaktersaettet, som du ikke bruger. 
Der er jo en del grafiske tegn, som 
ikke er sa vigtige! 

Hvis du ikke er afhasnglg af at 
have de negative legn. kunne du jo 
f.eks. Ia=gge dine egendefinerede 
karakterer der? (De negative tegn 
optager pladserne 128-255). 
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INPUT 

Hej Tor 

Forst tak for et godt bfad med en 
god brevkasse. 

Jeg er begyndt at lave sma ma- 
skinkode programmer til en C64. og 
er stodt pa et par problemer. 

1 Hvordan kan jeg have flere under- 
rutiner (interrupts) korende pa en 
gang? 

2 Hvordan ganger og dividerer man 
i maskinkode? 

Jeg synes, det er en god ide at 
trykke smi maskinkodeprogram- 
mer 1 bladet, men da jeg bruger en 
assembler, yil jeg forest, at der 
ogsa" blev trykt assembfer-listnin- 
ger 

H/lsen Klaus Autzen 
Valmuemarke n 
9000 Alborg 



OUTPUT 

1 Nar en datamaskine udforer flere 
ting pa en gang, kaldes dette MUL- 
TIMASKNING. Dette er ikke 
6502'erens stasrkeste side, da den 
kun har en interrupt, som kan bru- 
ges. Det kan imidlertid godt lade sig 
gore, at lade denne rutine udfore 
flere ting pa en gang. (Det gor den 
for sa vidt allerede!). Du kan »hme« 
dine rutiner saledes at de udfores t 
det tempo, du er interesseret i. 
Husk at interrupten slar til 60 gange 
1 sekundet. Hvis du bruger andre 
interruptkilder (f.eks. sprite/kolli- 
sion. RASTER) ma du checke pa 
interrupt/flag registeret (SD019) for 
at fmde kilden til interrupt. En enkel 
MULTIMASK interrupt vil kunne se 
saledes ud. 



INTERRUPT = ' 

DEC FLAGG1 

JSR TASK1 
SJEKK2DEC FLAGG2 

BNE SJEKK3 

JSR TASK2 
SJEKK3DEC FLAGG3 

BNE NOTASK 

JSR TASK3 
NOTASKJMP SEA31 ;ALMINDELIG 

INTERRUPT 
TASK1 LDA #6 ;UDF0RES 10 

GANGE I SEK 

STA FLAGG1 

o.s.v. 

RTS 

TASK2 LDA #6O:UDF0RES 1 
GANG I SEK 
STA FLAGG2 

O.S.V 
RTS 

TASK3 LDA #240;UDFORES 
HVERT 4. SEK 
STA FLAGG3 

o.s.v. 
RTS 

2. Se RUN nr. 3 for multiplikations- 
rutine. Er du interesseret i generel 
programmering, kan jeg anbefale 
"Programming the 6502- al Rodnay 
Zaks — en af de boger. jeg ville tage 
med mig pa en ode o. hvis jeg kun 
matte tage to! Den anden skulle 
selvfolgelig vaere "Reference 
Guide* Den er ogsa hell uundvaar- 
lig, og sa er det bare al habe. at der 
ogsa er en stikkontakt pa oen! 

Tak for denne gang og pa gensyn 
i naaste nummer. ■ 
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Tipsprogram 



Vi er ndet til den del at program- 
met, som mange har sukket efter, 
nemllg mullgheden for at fa; skre- 
vet kuponerne pant ud pfi printe- 
ren. 

Den rutine, vi bringer i dette 
nummer, er en udskrift til eget 
brug. Rutlnen til udskrivning af 
Dansk Tipstjenestes nye kuponer 
er ikke lavet endnu af den grund, 
at vi ikke har set de nye kuponer 
endnu. De skulle imldlertid vaere 
godkendt og prevekert, sk premi- 
eren omkring 1. September skulle 
llgge nogenlunde fast. Vi haber 
selvfolgelig at have rutinen klar 
til nseste nummer - men vi tor ik- 
ke love det 100%. 

Commodores 2 printers 901 og 
802 arbejder lidt forskelligt, sa vi 
er faktisk ncdt til at Isegge to 
printerrutiner ind I programmet 
og angive, hvilken type man ar- 
bejder med. Endelig skal vi bekla- 
ge fejlen i sidste nummer i linie 
13942. Den korrekte linie er med i 
udlistningen af denne del. 




Endvidere kan vi oplyse, at vl 
som lovet i et tidligere nummer, 
vil konvertere programmet til 
PLUS4/C16, samt til VIC-20. Den- 
ne konvertering er i fuld gang, og 
vil formentlig komme i nssie 



nummer. VI er ogsa blevet fore- 
spurgt om en konvertering til nor- 
ske forhold (d.v.s. 12 kampe). Det- 
te er i ojeblikket under overvejel- 
se. 



Det originate 



NYT UV i din Commodore 64 & 1541 disk: 

LOADhasIighed 10 x hurtigere • DATAovertefsier 8 x hunigere • FORMATE- 
RING pi KUN 23 SEK - FULD OATASIKKERHED • LOAD 1 START program med 
kun 1 lasi • DIRECTORY ($) med kun 1 t«t • LOA0 Ira DIRECTORY med kun 1 test 
• MONITOR er INDBYGGET - FULD COM PATI BELT CENTRONICS INTERFACE er 
mdbygget • FUNKTiONSTASTERNE (som kan sias fra) er belagi med mange 
FlNESSER lor brugeren • Fuld DOS 5. 1 med U0VIDELSER er INOBYGGET • 
HARO-C0PY ruline indbyggel • OLD kommando INDSVGGET • ftEGNER MED 
HEX. OCT, BIN • ALT DETTE FUNGERER, SA SNART DU T^NDE R FOR DIN 64'er 
- INGEN SOFTWARE SKAL LOADtS • Nem og hurtig rnonteriftg • SpeedDos' 
brugei INGEN PLADS I DiN computer ■ SpeedDos-* lun-gerer med ALLE pro- 
grammer. 





kr. 1495,- 



Poly-Consult 

5250 Odense SV, Tlf 09-17 68 67 

r Henvrset gerne lit nsrmeste lorhandier 
* S/9*+ efD er regisireret varemarte 



Verdens hurtigste operativsystem 
til din CBM 1541! 

Op til 20 x HURTIGERE LOADING I 

lndbygget 2 MIN BACKUP-PROGRAM! 

Formattering Da 11 SEKUNDER' 

lndbygget RESET-KNAP! 

Mere end 20 NYE BASIC-KOMMANDOER! 

Krsever INGEN INDGREB I DIN COMPUTER! 

FYLDER IWTET I HUKOMMELSEN! 

100% hardware-baseretl 

lndbygget BASIC 4.0. DOS-KOMMANDOER! 

Langt H0JERE DATASIKKERHED! 

MARKEDtTTS SUVER/ENT BEDSTE 1541-TURBO' 

Pris: 985,- incl. montering. 

Eneforhandler & distributor: 




Postboks 28 - 2980 Kokkedal 
Ordretelefon (02) 24 26 58 • Ma-so kl. 8.00 til 22.00 



A^ 9 

Jeff kan, programmers 
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Af Edgar Thylkjasr 
Egentlig er jeg ked af. at jeg forst 
opdager det nu - to ar efter, at jeg 
flk en CBM 64 pa skrivebordet: at 
den sakaldte »strukturerede pro- 
grarnmering«, hvor man taenker i 
procedurer tremfor i linienumre 
med GOTO'er og GOSUBer, er sa 
helt eventyrlig nem at have med at 
gore! Isaer med en COMAL 80-kap- 
sel i »putteren«. 

Nu har jeg omsider investeret sma 
tusinde kroner i COMAL 80 version 
2.01 , og det er de bedste penge, jeg 
nogensinde har ofret p& et stykke 
software. 

Himmel og afgrund. hvor er det 
dog perfekt! Lige pludseiig kan jeg 
fa mine programmer til at opfore 
sig, nojagtigt som jeg vH - og del er 
helt fantastisk, hvad der kan vaere I 
maskinen pa en og samme tid, 
selvom der kun er 30714 bytes free! 

Glem alt om goto og gosub 

Linienumrene i COMAL 80 har fak- 
tisk ingen programmasssig betyd- 
ning. Et Comal-prograrn er sam- 
mensat af procedurer, der henviser 
til hinanden, bruger hinanden - ikke 
ved Imienumre, men ved letfattelige 
danske procedurenavne (det er op 
til dig selv: du bestemmer selv, 
hvad du vil kalde en procedure). 

Glem alt om. hvad du har lasrt om 
linienumre. Glem alt om. hvad du 
har lasrt om goto og gosub! 

Har du et Comal 80 program i 
maskinen. kan du f.eks- skrive: 

select "lp *> 

find -PROC- 

select "ds;* 
Disse enkle kommandoer far din 
printer til at udspy en liste med alle 
linier, der indeholder procedure- 
navne Med denne liste ved siden af 
dig er det nemt at finde ud af, hvad 
programmet indeholder. 

Maske findes der en procedure, 
der hedder *>hovedprogram« og du 
vil gerne se. hvad den indeholder. 




Du skriver da: 

list hovedprogram 
- og straks toner hovedprogram- 
mets linier frem pa sksermen. Her 
ma du endeltg udelade anforseis- 
tegn om '»hovedprogram«. Tager du 
dem med. bliver proceduren «ho- 
vedprogram- gemt som en sekven- 
tiel fil pa din disk - en anden finesse, 
der giver helt fantastiske mulighe- 
der under programafviklingen. 

Ogsa i almindelig basic kan man 
omdanne et program til en sekven- 
tiel fil, sa man kan fa den ind i et 
tekstbehandlingssystem. Man kan 
dog ikke omdanne den sekventielle 
fil til et program, der kan runnes. 
Det kan man i Comal BO 1 

Meningen med det hele er, at det 
skal vaere nemt at opbygge et pro- 
gram ved brug af programstumper, 
der er gemt pa disk/kassette som 
et "procedurebibliotek-. MERGE- 
kommandoen stykker det hele sam- 
men i den orden du onsker - og sa" 
ma du indrette dit hovedprogram, 
sa det holder styr pa" stumperne. 
Der toiger for ovrigt en helt pragt- 
fuld samling "Stumper- med pa de- 
mostrationsdisketten, nar du kober 
version 2.01. 

De besvaerlige danske tegn 

Her komrner vi til noget. der for mig 
er saerdeles vassentlig Systemet 
har nogle enestaende printerkom- 
mandoer. Det er simpelthen ASCII- 
godt! 

Nar man som jeg ikke kan lide 
kvaliteten pa de billige »matnceprin- 
tere- , og man ikke vil ofre en formue 
pa en skonskriftsprinter, sa valgte 
jeg den mindste Brother (CE-50) 
med tilhorende interface, og det 
kunne gores for ca. 7000 kr. 

Med hensyn til de danske bog- 
stave r lob jeg ind i en masse proble- 
mer med Commodores omvendte 
ASCII-vaardier. Der blev skrevet 
store bogstaver, hvor de skulle 
vaare sma. 

Comal 80 er sammensat af »pak- 



ker« tfcl forskellige formal. Der er 
f.eks. en pakke. der hedder "sy- 
stem- - og den kaldes med ordren 
USE SYSTEM. 

I denne pakke er der en konv 
mando. der hedder »setprinter« 
Her kan man vaslge en lang raakke 
parametre. sa man helt prsecist far 
sir* printer ind pa rette spor! 

Jeg varbare himmelfalden, da jeg 
med kommandoen 

setprinter(»lp;/a + /s5»| 
fik min Brother til at summe henrykt 
og arbejde med det rigtige danske 
allabet uden at fa o'erne gait I inter- 
facet ! 

Ingen laerebogsafhandling 

Denne artikel har ikke haft til forma.1 
at Isere dig, hvordan du skal pro- 
grammer i Comal 80, men den 
skulle gerne have inspireret dig til af 
ga i gang. 

Comal 80 kraever. at du laaser lidt 
om tingene - ikke blot i den til mo- 
dulet horende manual, men i boger, 
der er udkommet om emnet. Der 
findes forskellige udmasrkede bo- 
ger pa dansk om Comal 80 (det er 
jo trods alt danskudviklet), men her 
er det maske pa sin plads at nsevne, 
at systemets "fader-. Borge Chri- 
stensen, har leveret en af de ringe- 
ste laereboger (Comal 80 pa 
64'eren). 

I hvert fa!d. hvis du er over 14 
ar!!! Citat fra bogen: •■Mellemrum- 
stasten er en meget betydningsfuld 
taste. Det kan man bl.a. se af, at det 
er den storste af dem alle. ( II!)*. Det 
er en laerebog for mindrearige. 

Jeg startede artiklen med at sige , 
at jeg er ked af, at jeg forsi nu har 
opdaget. hvor nem programmering 
kan vaare med et programmerings- 
sprog som Comal 80. 

Taank, hvad man har vasret igen- 
nem at problemer forinden - og 
hvad de har laert en. Jeg ville dog 
nodig have undvseret denne indlae- 
ringsperiode! ■ 
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Af Steen Schmeltzer 

Bedre sent end aldrig - forhabent- 
lig! Vi lovede for et stykke lid siden 
en anmeldelse af den nye version 
2.01 af COMAL. 

Det bliver ikke en fuldstaendig 
gennemgang af alle mulighedeme, 
men en afslappet slentretur gen- 
nem nogle af de nye muligheder. 
Jeg henviser her til den forste an- 
meldelse af version 2.00. som er 
bragt i el tidligere nummer af RUN. 

Opdatering af gammel version 

For alle, der har version 2.00, er der 
nu mulighed for at fa opdateret ver- 
sion 2.00 til version 2.01. I retter 
simpelthen en henvendelse til jeres 
forhandler. og for en vejledende ud- 
salgspris pa kr. 450,*. vil han sende 
indsttksmodulet til Commodore I 
Horsens, hvor man hver den 15. I 
maneden opdaterer alle indsendte 
moduler. 

For de af jer, der ikke onsker at 
fa opdateret modulet (men som 
godt kunne teenke sig den nye bru- 
gervejledning), kan det oplyses. at 
den kan erhverves for ca. kr 180,- 
hos forhandlerne. 

Hvis UNI-COMAL/Commodore 
har taenkt sig at lave nye versioner 
hvert ar, kan det godt blive en dyr 
fornojelse. hvis man absolut vil have 
den nyeste version. 

Nyt demoband 

Her er en god nyhed tor kobere af 
COMAL, der ikke har diskettesta- 
tion. 

Commodore har indset. at 
mange kobere »kun» har kassette- 
slation, og har besluttet at ombytte 
demodisketten til et demoband, og 
dette er vel at mserke HELT GRA- 
TIS! 

Opdatering eller ej 

Hvad far man sa egentlig for pen- 
gene? Ja. foruden et opdateret ind- 
stiksmodul, far man en ny demodi- 
skette/band. samt den nye meget 



flotte og velskrevne brugervejled- 
ning pa 315 sider. 

Personlig synes jeg ikke, der er 
noget at betasnke sig pa, selv orn 
>-gamle« kobere ikke kan undga at 
fole sig snydt ved forst at have givet 
over 2000 kr, og dernaest skal ofre 
en plovmand ekstrafor at ende med 
noget. der nu kan erhverves for un- 
der 1000 kr. Men alligevel... 

Lad os se pa det positive og prse- 
sentere de nye kommandoer: 



I COMAL-editoren: 




change 




I SYSTEM-Pakken: 




textcolors 


showkeys 


serial 


gettJmeS 


setscreen 


defkeys 


bell 


settime 


getscreen 




I GRAFIK og TURTLE-pakken : 


savescreen 


loadscreen 


printscreen 


inq 


I SPRITE-pakken; 




saveshape 


movesprite 


stopsprite 


moving 


spritex 


spriteinq 


animate 


startsprite 


spritey 


stampsprite 


I FONT-pakken: 




savefont 


loadfont 



Brugervejledningen 

Den er yderst velskrevet. og beskri- 
ver i detaljer alle kommandoerne. 
og de rnedfolgende programmer 
bliver grundigt gennemgaet. Bru- 
gervejledningen bliver beskrevet 
som intet andet end en vejledning. 
men pa grund af dens velskrevet- 
hed, egner den sig udmasrket som 
lasrebog tor selvstudium, Der er 
selvfolgelig ingen lektioner. men 
ved at prove de beskrevne eksemp- 
ler og selv eksperimentere lidt, gar 
det helt fint. Brugervejledningen er 
udformet som losbladesystem. hvil- 
ket gor det meget let at anvende. 

Da Commodore har haft visse 
problemer med kopieringen af den 
rnedfolgende diskette, kan der 
vsere nogle problemer med den 
Problemet ytrer sig ved, at visse 
programmer ikke kan loades ind i 
computeren. COMAL svarer med, 
at det ikke er en COMAL-fil. Har du 
disse problemer, kan forhandleren 
hjselpe dig. 

De nye kommandoer 

I SYSTEMPAKKEN finder du kom- 

mandoen CHANGE. 

Denne kommando gennernsoger 

programme!, og finder det/de ord, 




du vilsendre. Du har mulighed for at 
gennemsoge hele prograrnmet, li- 
nier eller vis.se procedures Nar or- 
det er fundet, har du nogle mulighe- 
der. Ordet, der skal sendres. vil sta 
og blinke. Hvis du tasler return, vil 
eendringen blive foretagel med det 
samme. Hvis du vil aendre til andel 
end det bestemte, ska! du taste 
Commodore-tasten. Hvis ingenaen- 
dring skal foretages, tastes blot n/N 
og sogningen fortssetter. 



SYSTEM-pakken 

For kommandoerne i SYSTEM-pak- 
ken kan anvendes, skai der tastes 
USE SYSTEM. 

TEXTCOLORS anvendes til at 
definere. hvilke farver der skal bru- 
ges lil baggrundsfarve. kantfarve og 
tekslfarve. 

SETTIME bruges til at stiile det 
indbyggede ur i 64"eren. Hvis du 
bruger den her i Danmark. behover 
du ikke at taanke pafrekvensen. De- 
faulten er nemlig 50 Hertz. Har du 
derimod en SX64, skal du vaere op- 
masrksom pa, at den har en speciel 
stromforsyning, der korer pa 60 
Hertz. Der kan selvtolgehg tages 
hojde tor dette. na du bruger kom- 
mandoen. 

Nar du har indstillet uret, er det 
selvfolgeiig meget rart senere at 
vide, hvad klokken er slaet. Til det 
formal bruger du kommandoen 
GETTIMES. 

GETSCREEN OG SETSCREEN 
haanger sammen. Den forste bru- 
ges til at lave en streng af hele 
tekstskaermen. Denne kan sa gem- 
mes pa enten band eller diskette, 
for senere at blive hentet trem med 
SETSCREEN. Den strengvariabel. 
der skal bruges, skat indeholde 
mmdst 1505 tegn, og det er derfor 
nodvendigt at dimentionere den 
forst 

Det er nemt at programmere 
funktionstasterne i COMAL. Kom- 
mandoen DEFKEY programmerer 



tasterne, og SHOWKEYS vil ud- 
skrive en liste over Indholdet af 
funktionstasterne pa sksermen. 

SERIAL er en procedure, hvor- 
med du kan bestemme, hvortil kom- 
munikationen skal ga. 

GRAFIK- og TURTLE-pakken 

Nar man skal bruge kommandoerne 
i disse pakker, skal man ogsa her 
starte med at tast USE TURTLE eller 
GRAPHICS. 

SAVESCREEN bruges til at 
gemme graflkbilleder enten pa di- 
skette eller band. Der kan veelges 
mellem enten et hojoplosnmgsbli- 
lede eller et flerfavebiilede. Med 
kommandoen LOADSCREEN hen- 
ter man sa billedet ind i computeren 
igen.PRINTSCREEN kan udskrive 
et gratisk billede pa en Commodore 
MPS 801 eller en kornpatibel prin- 
ter. 

Kommandoen INQ giver oplysnin- 
ger om de forskellige grafiske va- 
riablers ojeblikkelige vaerdi. 

SPRITE- og FONT-pakken 

Nar man har tastet USE SPRITE, har 
man alle muligheder for af handtere 
sine Sprites. 

SAVES HAPE og LOADSHAPE 
benyttes til at gemme eller hente en 
forud defineret tegning pa band el- 
ler diskette. Tegningen kan sa hseg- 
tes sammen med resten af pro- 
grarnmet med LINKSHAPE. 

MOVESPRITE er, som navnet si- 
ger, en procedure der flytter rundt 
pa en sprite. Man kan bestemme 
hastigheden og maden - d.v.s. om 
der skal foretages evt. kollision- 
scheck. STOPSPRITE siger sig selv 
og behover ikke yderligere kom- 
mentarer 

MOVING bruges 111 at kontroliere, 
om en bestemt sprite beveeger sig 
eller ej. SPRITEX og SPRITE Y kon- 
trollerer en bestemt sprites aktuelle 
x eller y position pa sksermen. 

Vil du derimod vide, hvilke egen- 



skaber (farve, bevasgelse m.v.). der 
er knyttet til spriten, gores dette 
med kommandoen SPRITEINQ. 

ANIMATE er en kommando, der 
kan bruges til at fS en bestemt 
sprite til at udfore en bestemt hand- 
ling automatisk. Der kan hojst tilde- 
les en sprite 32 handlinger ad gan- 
gers. Det er altsa muligt, at be- 
stemme flere ttng en sprite kan ud- 
fore, og i hvilken raskkefolge de on- 
skes udfort. 

Star en sprite i venteposilion. kan 
du puste liv i den med kommandoen 
STARTSPRITE. 

0nsker man en dump af det gra- 
fiske billede. og spritene skal prin- 
tes med, ma' man forst udfore en 
STAMPSPRITE. 

SAVE FONT og LOADFONT bru- 
ges (ja, du gastter det aldrig) til at 
save eller loade en brugerdefineret 
FONT p£ band eller diskette. 



CTRL-tasten 

Denne tast har faet en masse nye 
funktioner, idet den sammen med 
mange af bogstavtasterne har faet 
mange, specielt redigerinsmaassige 
funktioner. 

Et hurtigt dump af skasrmbillede! 
klares ogsa hurtigt med CTRL-d el- 
ler CTRL-p, afhEengigt af om det er 
en grafik- eller tekstskaerm. man 
onsker udprintet. 



Afslutning 

Med disse nye og krafrfulde proce- 
durer og kommandoer, er COMAL 
80 blevet et endnu bedre vasrktoj 
end for. Men det er jo stadig op til 
den enkelte bruger, om denne on- 
sker at fa opdateret sit modul. Men 
mon ikke denne gennemgang 
skulle have give! en og anden blod 
pa tanden? 

Vi her pa redaktionen ser I hvert 
fald frem til at modtage endnu flere 
gode COMAL programmer i fremti- 
den. ■ 
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Fodselsdagskonkurrence 



RUN arrangerer en stor fodsels- 
dagskonkurrence, hvor emnet 
denne gang er lidt svserere end 
sldst. Emnet drejer sig om at lave 
et undervisningsprogram. Hvad 
du onsker, at folk skaf laere og 
hvordan, er op til dig selv, og du 
har mulighed for at lege med lyd 
og grafik, som del passer dig. Du 
behasver ikke at vaare alene om 
opgaven. I kan vaere to, eller I kan 
for den sags skyld veere en hel 
klasse, der gar sammen om opga- 
ven. 

Flotte premier 

Prasmierne er helt i top. Forste- 
praamien er en 128'er. Andenprse- 
mien er en Commodore 64 og 
tredjeprsemlen er en printer MPS 
801. Som fjerde og femtepreemie 
har vl henholdsvis en Printer/plot- 
ter 1520 og en Commodore C16. 
Denudover har vi 25 praemier be- 
staende af hver 10 disketter. 

Konkurrencebetingelser 

1 . Lav et program, der horer under 
kategorien undervisningspro- 
gram. Det er ingen betlngelse, at 
programmet er et selvstsendigt 
undervisningsprogram, det er og- 
sa nok, at det indgar som statte i 
en almindellg undervisning 
(f.eks. hjeelpeprogram i matema- 
tik, fysik, sprog, etc). 

2. Programmet skal skrives i 
BASIC eller COMAL 80 til en 
Commodore hjemrnecomputer. 

3. Af praktiske arsager kan kun 
anvendes udvidelsesmoduler 
som SIMONS BASIC, SUPER EX- 
PANDER og COMAL 80. 

4. Det skal af det indsendte 
klart fremga, hvilket hjaslpepro- 
gram, der evt. er anvendt og hvil- 
ken computer, programmet er 
skrevet tii. 

5. Programmet skal indsendes 
pa band eller diskette og vasre re- 
daktionen i heende senest 18. 
november 1985. 

6. Onskes band eller diskette 
returneret, skai frankeret svarku- 
vert vedleegges. 

7. RUN forbehoider sig ret til 
uden yderligere vederlag at of- 
fentliggore praamierede program- 
mer. 



8. Vinderne far separat besked 
inden jul og navnene offentliggs- 
res i RUN nr. 1 1986. 

9. Dommerkomiteen bestar af 
Donald Tanghus, Commodore, 
Jorgen Jergensen, RUN, Grith 
Axel, RUN samt 2 repraesentanter 
fra undervisningssektoren. Kom- 
miteens afgerelse kan ikke an- 
kes. 





PROFESSIONEL TEKSTBEHANDLING 



CBM 64 WRITER PROFESSIONAL 
version 4.0 
af AXEL BANG 

TI L COMMODORE 64, SX 64 og C 128 

Programme! indeholder W.a.: 

- 28.500 1 egn 

- Dumb: karaktersict 

- Linieorienierei 

- Automatic linieskift 

- Avanceret redigering 

- Fuld tabulator 

- Alfasoriering 

- For-/bagla:(i5 (Crefl 

- Automatisk aog/erstai ord 

- Kalkulaior 

- Format juMcring 

- Sammcnfcobling af Acre dokumentcr 

- Fuld slkkcrhcd mod lah af (ckit 

- Forbercdi til ftxo&aii 

- UdOtrivning pa lypehjulsskriver 

- Ojimegci mere.... 

Med programme! falgcr en udforlig let forsiaelig dansk brugcrvcjkdning. 
Programmet er udviklei af journalist Axel Bang. 
Dansk brugerscrvice (hoi line), 

Pris, EPROM version kr. 675,00 incl. moms 

Pris, DISKETTE version kr. 575,00 incl. moms 

Porsendelsesomkostninger kr. 2(1,00. 

ENEFORHANDL1NG 

Danmark, Sverige, Norge og Finland 



software M DANSK DATA SERV ICE ApS 



Fasanvsngei 307 

Posrboks 29 DK-2980 Kokkcdal Tclefon +45 2 24 32 93 
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Boganmeldelser 



Af Jorgen Jorgensen 

Fra Borgens lorlag er der i forste 

halvar af 1985 kommel 2 boger om 

maskinkodeprogrammering. 

Begge boger er oversat fra 
tysk/engelsk, og begge starter sa 
at sige helt fra bunden — dog med 
den forudsastning, at man er 100% 
fortrolig med BASIC-programme- 
ring. 

Den forste. der udkom, hedder 
-Maskinkode Programmering rned 
6502" og er pa 183 sider. Bogen 
henvender sig Ikke specielt til Com- 
modore 64, men til alle computere 
med 6502/651 0-processoren (Ap- 
ple II, VIC-20, CBM64, BBC m.fl.) 

Bogen gennemgar — foruden de 
helt grundlseggende ling — samt- 
lige assembler-kommandoer og ad- 
resseringsmader. Hvordan du vil 
anvende dem i praksis er - med 
nogle fa undtagelser — uden for 
denne bogs rammer. 

Til gengaeld fornsegter den tyske 
grundighed sig ikke, og denne bog 
er det mest syslematiske og om- 
hyggelige assemblerkursus, jeg 
endnu har Isest. Hvert afsnit slutter 
med et resume, og tingene bliver 
virkelig forklaret s& de er til at for- 
sta. 

Bogens sidste afsnit omhandler 
operativsystemrutmer, men afsnit- 
tet er ganske korl. da disse rutiner 
er forskellige hos alle de compu- 
tere, bogen egentlig henvender sig 
til (faktisk er kun CHRGET-rutinen 
medtaget). 

For at fS fuldt udbytte af bogen, 
bor man nok anskaffe sig en ma- 




MASKINKOL 
PROGRAMMERING 
MED BSC 




skinkodemonitor , men dette gselder 
i storre eller mindre grad alle boger 
om dette emne. 

Bogen er skrevet af Andreas 
Dripke og koster kr. 168.-. Det er en 
tremragende begynderbog, og den 
kan anbefales pa det varmeste. 



Maskinkode med Commodore 64 

Denne bog er skrevel al Ian Stewart 
og Robin Jones og henvender sig, 
som titlen antyder. udelukkende til 
Commodore 64. Dette er ogsa en 
begynderbog, men tempoet i bogen 
er noget hojere end i den forega- 
ende. Den starter s&msend roligt 
nok, men senere skal man som be- 
gynder virkelig vsere koncentreret 
for at folge med. 



Til gengaald nar bogen meget 
lasngere »ud i krogene«. Vel gen- 
nemisest (og forstaet) er der ingen 
tvivl om, at man med denne bog 
slutter pa et hojere niveau, idet man 
her bl.a. kommer ind p5 sprites og 
hojoplosningsgrafik. 

Bogen indeholder programlist- 
ning pa en lille »HEX-loader« og en 
lille "MINIASS- - begge dele pro- 
grammer, der skulle gore det lettere 
at mdtaste rnaskinkodeprograrrs- 
mer. hvis man ikke har en maskin- 
kodemonitor. Programmerne er 
maske gode nok til bogens eks- 
empler, men lad vaere med at tro, at 
de kan anvendes til noget saerligt I 
praksis. 

Bogen er pa 216 sider og koster 
kr 168,-. Denne bog er ligeledes 
anbefalelsesvaerdig, og i det hele 
taget er det rart, at mere og mere 
computer-litteratur efterhanden nu 
udkommer pa dansk. ■ 




If « wart og Robin Jonn 
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Easy Script pa dansk 



Det er nu muligt at ik tekstbehand- 
lingsprogrammet Easy Script pS 
dansk. 

Easy Script leveres pa diskette 
og med systemet folger en dansk 
vejledning pa 123 stder, der beskri- 
ver alle systemets faciliteter. 

Ledeteksterne, der hidtil har vee- 
ret pa engelsk. er nu ogsa pa dansk. 
pa samme made som de specielle 
tegn as, o og a heller ikke lasngere 
krasver nogen specifikation. 



Easy Script er et af de mest aner- 
kendte tekstbehandlingssystemer 
til Commodore 64, og uanset hvil- 
ken printer man benytter, har man 
mulighed for at Iremhaeve tekster 
ved udskrift. 

Anvendes den nye typehjulsprin- 
ter DPS 1120, kan man vselge un- 
derstregning, fed skrift eller begge 
dele. 

Systemet vil blive testet i naeste 
nummer af RUN, men for god or- 



dens skyld skal nu meddeles. at 
Easy Scripts danske version koster 
kr. 585,00 incl. moms. Vejledningen 
kan kobes alene for kr. 150.oo incl 
moms. ■ 
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PROGRdlYI SEKTIOn 



Diskettehjceip 

Dette glimrende program er lavet 
af Henrik Meyer. Programrnet er 
menustyret, seSvforklarende og 
bestar af felgende: 



F1 = 


Programkopiering 


F2 = 


Program sletning 


F3 = 


Diskette omdobnmg 


F4 = 


Rename et program 


F5 = 


Validate en diskette 


F6 = 


Diskette formattering 


F7 = 


Initialisering af diskette 


F8 = 


Afslut 



Privatregnskabstillaeg 

lage Ostersen har lavet et hjaal- 
peprogram til RUNs privatregn- 
skab. 

Programrnet loader tekstfile, 
budget- og bilagsfller for del an- 
tal maneder, der onskes kontrol- 
leret. 

Programrnet udskrlver bilag for 
den/de kontonumre, der onskes, 
og til slut skrlves opsummerede 
budgettal og bilagstal for de ma- 
neder, der er loadet. 

Der er plads til ca. 700 bilag, og 
man kan selvfoigehg ikke loade 
flere maneder, end der er pa di- 
sken. 




Master Mind 

Henning Birk skriver folgende: 
Programrnet er bygget op, sa det 
ligner det originate spil sa meget 
som muligt, og selv om det er et 
lille program, er der mange gode 
rutiner I det. 



SpfHet er selvforklarende, men 
i korte treek - de sorte prikker be- 
tyder rigtig placeret farve, de hvl- 
de betyder rigtig farve, men pa 
forkert plads. 




Finans 

Mogens skriver om sit program: 
Programme! er et spilleprogram. 
Man handler pa aktieborsen. og 
det drejer sig om at forrente sin 
formue (kr. 10.000) bedst muligt. 
De ferste 10 omgange kan man 
handle, som man har lyst, men 
fra 10. omgang spiller man mod 
banken. Spillet slutter efter 25. 
omgang, hvor man heist skal ha- 
ve sa mange aktiver som muligt. 




Kore prove 

I programrnet skal der foretages 
en baglaens parallelparkering 
med en bil pa sksermen. Nlar bilen 
er parkeret, skal du huske at 
trsekke parkeringsbremsen. Der- 
efter skal du styre bilen ud igen 
og kore den ud af skaarmen for 
oven. Programmer check'er selv, 
om du laver nogen fejl. 



Super Qulckfind 

Morten Knudsen har lavet oven- 
staende program. Dette program 
kan hurtigt og nemt finde et pro- 
gram (p£ band). 

Lad os slge, du har 12 program- 
mer (alle hjaalpeprogrammer), 
som du vtl benytte. I linie 103 
aendrer du DATA NO til DATA 12 
(max. 20 programmer). I linie 107 
aendrer du HEADLINE til HJ^EL- 
PEPROGRAMMER (hojst 39 
tegn). Fra linie 111 indtaster de 
enkelte programnavne med evt. 
bemasrkninger- Hvis ingen be- 
mserknmger, skal Mnien afsluttes 
med et komma. 

Programme! har nogte vigtige 
funktioner, der ikke er normal! i 
et quickfind-program: 

1. Overskrifter (Headlines) 

2. Bemserkninger (hojst 19 tegn) 

3. Valg mellem normal- og turbo- 
load 

4. Ved almindellg load vaalges 
mellem opstart af program og 
aim. indloadning. 



Programlistninger 

Diskette hjaelp 24 

Tillseg til Privatregnskab 26 

Master Mind 27 

Printerrutine 28 

Finans 28 

Koreprove 30 

Ouickfind64 32 

Taendstikspil 33 

Snake Hunt 34 

Tekstbehandling 36 

Wimbledon 41 

Talinvasion 46 

Fantasy 47 

Input/output listning 1 48 

Input/output listning 2 49 

Turbo program 50 

Koordinater 52 

Tipsprogramdel4 S3 
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DISKETTE HJAELP 

INDSENQT AF 
MENRIK MEYER 
RUNDDELEN 1 
6040 EGTUEO 

TIL COMMODORE 64: 



10 P0KE788.97:P0KE7e8.226: PDKE763 ,252: PO 
*CE??5.200:POKF657.128 

20 P0KE53272 . 21 : POKE53280 , 7: P0KE53281 .7 
25 GOTO 1100 

30 P14= 0: :P24=" .PGR, REAP" 

35 P44 = "00: ': P54 = ' .PGR.URITE" 

-53 PRINT T CLR JC 2CN3E BLU3 "TflBC 9 3 C SAJ3C 19 

44 FRINTTP-BC9 3 t S/- 3 PROGRAM KQPIER1NG E 
S/--3" 

45 PRINT TAfU9 )"[ S/J ]f l9S/C3t S/K3 " 

S0 PRINT"!" 16CN3CREU3<Fi> CONTC 2SPC3 <F3> 
ANULLERt 3SPC] <F5 > HOUEDdENU" 

55 PRINT"! 15C03E 4CH3PROGRP,rWlUN ":P3*="" 

56 GETP04: IFP04-' "THEN56 

57 IFfl£CCP04)=13THEN56 

58 IFLENCP34 JM6THENG0SUB638: G0T081 
60 IFPB4 - C Fl J ANDP34 <> THEN 100 

76 IFP0i= CF3] "THEN81 

77 1FP04="EF53 THEN1100 

^8 IFASCEP04 K9inNOASCCP0S3>64ORASCCP0*3 
>44flNOflSCEP0* 3<59ORflSCCP0*3=32THEN80 
79 G0T056 

88 P3*=P3*+P04:PRINTTflBC17 3"ECO3 "P3*:G0T 
058 

81 P3*^"' :PRINTTABC15 3"ECO3[20SPC3 'P3*:G 
QT056 

100 PG*=P14+P34+P24 
110 PR"4=P44+P3VrP54 
150 1=1 

170 PRINT T l2CNKREUJ[6SFC]INDSr T DISKET 

TE OG TRYK <F1 >t 6SPC3" 

180 IF7.4 0 D ' rHENDIWW 16610 3:Z4 = "D " 

190 GETfii: IFA4 <>" t F 1 3 " THEN1 90 

210 PRINT rCLR3C5CN][6CH3LOADER EREU3P3 

4'E0FF3r2SPCJUENTI" 

230 0PEN2 .8.2.PG4 

240 GET"2 ,A4 

250 fl*=Ai+CHR4C0 J 

260 Pi-Ai I 3=ASC(fl*3 

280 I«J*i 

290 !FSTflTUS=0THEN248 
300 CLOSE2 
320 GOSUB700 

341 IFENO0THEN1 100 

342 PRINT'[CLR3"TABC16 3 CCN]CS/U3C6S/C]C 
S/I3" 

343 print rflBuerrs/-] menu es/-j~ 

344 PRINTTOBC 16 3 C S/J 3C6S/C3E S/K3'' 

347 PR INTTABC 18 ) l 4CN3 <Fl >C 2SPC3 =E 2SPC 3B 
flCKUP-KOPI' 

348 PRINTTflBl.10 3" C CN3 <F3H 2SPC3 =E2SPC3HQ 
UEDHENU 

343 PRINTTftB(103'[CN3<F5K2SPCJ=C2SPC3FlF 
SLUT 

350 GETQ4; tFOta"' THEN358 

351 IFQiO 'l F13 ANDtHO' C F33 "ANDQ* <>"t F5 
) " THEN350 

352 IFQ4= TF13"THEN380 

353 IFQ4 = TF3] ,, THENlia0 

354 IFQ4="CF53"THEN498 

380 PRINT'[8CN3CREU3C4SPCJINDS[T NY DISK 

ETTE. OG TRYK <F1>E4SPC3" 

3B1 GETA4: 1F640' CF13' THEN3B1 

382 PRINT "C CLR3E 4CN3 "TABf 1 1 3"LflUER BflCKU 

P-KUPi 



383 PRINTTflBC17)"CCN3UENT|- 

J85 0PEN3,8,3,PR* 

390 FORKMTOI-1 

400 PRINT«3,CHR*CA«CK3 

418 NEXTK 

428 6OSUB7B0: CLQSE3 

470 PRINT TCLR3C 6CN ] "TflBO 3' BACKUP-KOPIE 
N ER KLflR- 

471 PRINTTflBC 18 3 "[ 5CN3 <F1 >C 2SPC] =C2SPC3H 
OUEDMENU ' 

472 PR JNTTABC IB ) "[ CN3 <F3>t 2SPC3 = E 2SPC3AF 
SLUT" 

473 GETQ«: IF(J* = " "THEN473 

474 IFQiO' f Fl 3 fiND04O 'E F33 THEN473 

475 IFQ4- fFl 3 THEN1100 

476 \fQ%=' TF33"THEN490 
490 POKE798.49:SYS58260 

630 PRINT 7 12CN3CREUJC3SPC3PROGRPIW1UN F 

OR LANDT * !C 2SPC3 TRYK <F1>C3SPC3" 

640 P34=~ •:PRINTTflBC15 3'"C l5CaH28SPC3"P3 

4 

645 GETflt: IFfHO ' T F 1 3 "THEN645 

658 PRINT U?CN3CREU3<F1> CONTC 2SPC3 <F3> 

ANULLERE 3SPC 1 <F5> H00E0P1ENU 
660 PR I NT TAB C 1 5 3 "f 15C03 ' : RETURN 
700 0PENIS.8.15 
718 INPUrnl5.EN.En4.ET.ES 
730 IFEN=0 fHENCLQSE 1 : CLOSE 15: RETURN 
740 PRINT'T CLR3 " TflB (6 3" [ 3CN3STATUS: ' ; EN 
;E04 

760 FDRX=1TO1500:NE*TX 
770 CLE3SE15 
780 RETURN 

800 PRINT'T CLR3E 2CN 3C BLU3 ' TABC9 3"t SAJK 2 
0S^C3ES/n'' 

801 PRINTTASC9 3'TS/-3 DISKETTE OP1D0BNING 

ES/-3' 

802 PRINTTnBE93 'tS/J3[20S/C3r S/K3" 
830 N4 = "" •0PEN15.8 . 15; OPEN3 ,8 ,3 . 
840 PRINT-15. Ul 3 6 18 0 

350 PRINTB15. B-P 3 144'* 
860 FORI--0TOI5 
870 GET»3.A4 
880 N4=N4t-fH 
890 NEXT I 

908 GET n3 .B4 ,C4. 114 .124 
918 IDi=I14tI24 

920 PRINT'C 3CN3GflMnrL DISKETTE-NAUN : "N* 
930 INPUr"f 3CH3NYT OISKETTE-NAUN" ! N4 
948 IFLENENi 3M6THENPR INT "E 2C03 " : N*=" " : G 
OTO930 

950 F0RI=LENCN4 3HT016 
960 N4 =N* tCHR4(l60 3 
978 NEXT I 

980 PRlNTTrtOCll)"rCN3Grt[iriEL ID: IP* 
990 PRINTTflBC 14 3: INPUT "NYT ID": ID* 
1000 IFLENE ID4 302THENPRINT "C 2Ca3": G0TO9 
90 

1005 PRINT I 9CN3CREU3C 2SPC3OI-1U0BNINGC2SP 
C 3 <F 1 >E 6SPC 3 HOUEDHENUE 2SPC 3 <F3>[ 2SPC3 " 

1006 GETrtl; IFA4='' "THEN 1086 

1007 IFA4<> T F13 flN0n4<> "EF3]"THEN1086 

1008 IFfl*=' rF13"THEN1010 

1009 IFfl4= 7F33 'THENCLOSE3:CLOSE15:G0TOl 
100 

1010 fl*=N*-<B*tC**-Ip4 
1020 PR1 NT" 1 5 , B-P 3 144 ' 
1030 PRINr»3.A4; 

1040 PRINTM5. U2 3 0 18 0'' 

1050 CL0SE3 

1060 PRINT»15. 10' 

1079 GOSUB700: CLOSE 15; G0TO1 100 

1 100 PRINT t CLR3E BLUJ ' TflBC 14 3"[ CN3C S/U1E 

11S/C3IS/I3 ' 

1110 PRINTTnBC14 3'TS/-3 HOUEDriENU ES/-3" 
1120 PRINTTflDC 14 )"C S/J 3C 1 lS/C3r S/K3 " 
1130 PRINTTHBC6 3 "E 3CN3 <F 1 >C 2SPC J =E 2SPC 3P 
ROSRflrl KOPIFRING" 



2iA 



i 135 PRINTTABC6 3 ' C CN3 <F2>t 2SPC3 =C 2SPC3PR 
OGRfiH SLETNING ' 

11 40 PRlNTTflBC6)-tCNJ<F3>C2SPC)=t 2SPC3D1 
SKETTE DHD0BNING" 

U44 PRINrTflBt6rtCN]<F4>C2SPC3=t 2SPC]RE 
NAME ET PROGRAM' 

1 145 PRINTTA8C6 3 I" CN J <F5>C 2SPC 3 -C 2SPC3U* 
L I DATE EN DISKETTE" 

1150 PRINTTABC 6 3 r CNj<F6X 2SPC 3 =C 2SFC JDI 
SKETTE FORNFtTERING " 

I 154 PRlNTTnBC63 , r'CN3<F7>C2SPCl=C2SPC3IN 
ITlALISERE EN DISKETTE" 

SLUT" PRINTTfiBC 6 rf <F8>C 2SPC] =C 2SPC ^F 

1168 GETQi: 1 F Q S = THEN I L 60 

1170 IFQi = fF43' THEN15S0 

1 180 IFQ*= r F I J THEN30 

1190 lFQi=" T F3 3 "THEN880 

1195 IFQ4="rF53 'THEN1400 

1200 IFQi - EF63' THEN1230 

1205 IFas= '| F7]' THENI370 

1210 IFQ* = 'TF93"THEN498 

1215 IFQt = f F21 THEN1460 

1230 PRINT ( CLR3C2CNJLBLU3 TFtB C8 3"t S/U3C 
22S/C3CS7IJ" 

1240 PRINrroB(83 CS/-J DISKETTE FORPlflTER 

ING E Sv- J ' 

1250 PRINTTOBC8 3 ' T S/J 31 2ZS/C3C S/KIT 

INPUT I HGflJt 3CN jt 4CHJD I5KETTE NflUN 



1270 

;ni 

1260 
1290 
1300 



IFUEN(ri*3>16THENnt= ' :GOTO1230 
PRINTTOBC 123: INPUT" ' I CN3 ID NR . " ; Nt 
IFLENfNS 3O2THEN1230 
1310 PRINT' { 10CN3CREU3 FORPWTERJNGC 2SPC3 
<F 1 H 6SPC]HOUEDriENUr_ 2SPC ] <F3> 
1320 GETfH. [Fnt = " 'THEN1320 

1324 IFAIO'IFI] F»NI3At O CF33 ' THEN 1320 

1325 IFA* = T F13' THEN1338 

1326 IFfll = ' r F3 3"THENdi = " 'Ni = " ':GOT0l 100 
1338 OPEN1 ,a,l5:PRINTitl . X0 : 'W - "+N4 
1340 GOSUB700:CLOSE1:GOTO1100 

1370 0PEN2.8.15. I" 
1375 CL0SE2 

1380 GOSUB700:GOTO1100 

1400 PRINT f CLR3I 2CN3EBLU3' TABC10 3"[S/U1 
r 18S/-C3C S/I 3 

Hifl PRlNTTflBCl0 3TS/'-3 VALIflTE DISKETTE 

1420 PRlNTTnBCI03"tS/-J][ 18S/C JC S7KJ" 

1430 0PEN2.8.15:PRINTb2, U0" 

1448 GOSUB7E0:CLOSC2: GOTOU00 

1460 PRIHT rCLR][2CN3CBLU3 TffirQ yr smm 

21S/C3CS./I]' 

1470 PRINTTnBiarcS/'-j SLETNING flF PROGR 
API fS/-J" 

l-*80 PR^TTnBC8 3 rS/J3l21S/C3E5/K3 

1490 INPUT"rH0n3C9CN3C4CHJPR0GRftM-NflUN " 

1500 IFLENmi 3>16THFNP1i=" :GOTO1500 

1510 PR I M T r 9CNJf REU3C 2SPCISLETNINGC 2SPC 

KFI>[7SPC3H0UEDnENU[ 2SPC3<F3K 2SPC3" 

1520 GETflt; 1FFI* = THEN1520 

1530 IFfliO fF13 1NDfli<>"[F33* THEN1520 

1540 IFfl\- (HJ THEN1560 

1550 IFnt = TF33' THENl 100 

1560 0PEN2.B.15. 'SB: +m 

1570 GOSUB700.CLOS;E2:GOTO1100 

1580 PRINT rCLR3C?CN3CBLU] ■TflBC93"CSAJ3C 

19S/C3LS/I3 

1530J->RINTTAB(3J T S/- 3 RENflhE ET PROGRAM 

1600 PRINTTRBC93 t S7J 3C I9S/C3C S/K3 " 
1610 I1t="-: INPUT r3CN]GAriM£L PROGRAM-NAU 

N ' :fii 

1620 IFLENtn* 3>16THENFRINT C 5CO ) " i fit = ' : 
GOTO1610 

^630 N» = " : INPUT ■[ 4CH3NYT PRQGRAfl-NAUN" *' 



1640 IFLENCNi 3 > 1 6THENPR 1 NT f 2C0 3 " : N*=" " : 
GOTD1630 

1650 PRINT'T I0CN3CREU3 RENAHEC 3SPCJ <F1X 

"3SPC3HOUEDrtENUt3SPC3<F3> " 

1660 GETftt: TFni="■ THEN1660 

1670 IFflK)- f FI3 flNUfllO-'f F33 THEN1660 

1680 IFfli= IF1JTHEN1700 

1690 lFfli= T F33 ' THENI1i= ' :Ni=" :GOTOI100 
1780 0PEN2.8.15. R0: *Ni+*= +I1i 
1710 GOSUB700;CLOSE2:GOTO1100 
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Til Commodore 64 



20 REfl xxxxxxxxxxxxpxxxxx 

Zl REM * HJtLPEPROGRflfl TIL 'RUN' * 

22 REfl ? PRIUflTREGNSKAB * 

Z3 REP1 * j* 

21 RE(1 * BF TflGE OSTERSEN x 
25 RE(1 * SPiTURNUEJ 5 * 
Z6 REM * 8382 HINNERUP x 
27 REM **x;*xx**xxx;*x**x*;x*;*x*;ic**xxit*** 

50 Din0I*C75BJ:DinTE*(180):DIf1BUt 12, 100 ] 
60 SFt= T2SPCJ ' 

100 Rt = * rS/UK 2S/*3f S/I UCNK4CUHS/-OFC 
CN][ 2CU3FS/J3E2Sx-*]t S/K3CCO] I PRINT" T CLP 
1C2CNJ' 

105 PRINT' TBCHKSAJU 17S/>US/n[ CN3C19C 
UJES/-3 OUERSIGT 'RUN't 2SPC3FS/-J 

106 PRINT ff 8CH3E S/-] PR 1 UP.TREGNSKBBC 2SPC 
IE S/-]( 19CU]ElN3C S7J JT iyS/xK S/K 3E 2CNJ " 
MB PRINTTflB(6 )R»; f ZCU 3 It S/- J[ 2SPC 3 LOAD 

RLLE FILErCNJ ' 
130 PRINTTflBC63RS; r 2CU33I 2SPC3PRIN 
TER UDSKRIFTE CN3 

15B PRINTTflBC63R«; 7 2CU35F S/-11 2SPCJPRIN 
TER flLLE KOKTHCN)" 

160 PRINTTflB(63R*; ( 2CU37CS/'-3r2SPC3SKAE 

Rfl UDSKRIFTCCNJ 

t70 GETft* : IFfl* = THEN1 70 

171 IFA*= TF1J THENGOSUB1000:GDSUB500:GO 
TO100 

173 IFfl» = 'TF33 THENZ=Bi GOTO1500 

174 IFfti = "CF53 THENZ-1 : GOTO 1500 

175 IFflt= rF73' THEN3800 
130 IFfl* <> "f F5 3 " THEN 170 

500 REI1 LOflO BUDGET S. TEKSTF1LE***.**;*;"*;«: 
510 PRINT r CLRJ[ 3CNJ[ 3CH3LOAPING BUpGETT 

520 OPEN2, 0, 3, 0; BUDGET ,S,R 

530 FORI=lTOnp:FORI[=0TO100 

510 INPUT«2.BUTt ,II 3:NEXTII .I 

558 CL0SE2: PRINT "t CLR3E 3CN 3 [ 3CH 3L0P-D ING 

TEK5TFILE" 

560 OPEN! ,8,2, 0: KONTOPLflN ,5 ,R" 
570 FORI=0TO100: 1NPUTB1 .TE*(I ) 
590 IFTEt = THENTE*=HJi 
590 NEXT*. CLOSEi: RETURN 

1000 REP1 LOAD BILflGFILE i»»«««xwm 
1810 PRINT TCLR3C5CN3E I 0CH JBlLflGSFlLE" 
1020 PRINT TCN3C8CH3HUOR NflNGE tlflftNEDERC 

CN3 ' 

1030 PRINT f CO][SCH35KftL LOflDES"" ; 
1040 INPUTUD 

1050 IF f1D< 10RnD>12THENPRINT CCD1 : GOTO 10 
30 

I860 0FEN3.8,4. JANUAR.S.R : G0SUB1 200: I F 
WD <2THENRETURN 

1070 0PEN3,8,4. FEBRUflR , S , R ' : GOSU81200 : I 
FHOOTHENRETURN 

1080 QPEN3.B.4, HARTS ,S .R" : GOSUS12B0: IFfl 
D<1THENRE TURN 

1090 0PEN3.B.4, APRIL, S. R':GOSU01200: IFfl 
D<5THFNRETURN 

1100 0PEN3.8.4. HflJ ,S,R :GOSUB1200: EFfiP< 
6THENRETURN 

1110 QPEN3.8.4. JUNI ,S.R": GOSUB1200: IFHD 
<? THENRETURN 

1115 0PEN3.8.4. JULI .S,R" : GOSUB12B0t IFflD 
OTHENRETURN 



1 120 0PEn3,8,1 . AUGUST. S.R :GOSUB1200t IF 
FID OTHENRE TURN 

1130 0FEN3,8,4, SEPTEMBER. S, R": GOSUB12B0 
: IFflfK I0THENRETURN 

1 140 0PEN3.S.1 . OKTOBER.S.R '-.GOSUB1280: J 
FP1D< 1 1THENRETURN 

1150 0PEN3.8.1. NOUEIIBER.S.R- : GO5UB12B0; 
I FflD <\ 2THENRETURN 

1168 OPEN3,8.4. DECEMBER ,S ,R : GOSUB1200-! 
RETURN 

1200 REH INDLAESNING AF BlLflG*x*x«t*Wt 
1220 INPUT«3,BI*CB1 1 

1230 IFBIKBI 3= * "THEN CL0SE3: RETURN 
1210 BI =BJt1:G0T01228 

1500 REH PRINTER OPSUflflERE xxxxtxxxxxxx 

1510 IFZ=lTHENKN=ll: GOTO 1520 

1515 INPUT TCLR3t 2CN3C2CH3KONTO NR. :KN 

1520 IFKN : INTf.KN/'l0 3*10THENKN=KNH 

1530 FORA=lTDnD:FORB=10TO108 

1510 IFB-KNTHENBU1 =BUltBUCfl,B 3 

1550 NEXTB.fl:GOSUB5000 

1570 FORfUlTOBI 

1588 IFyflL(niD*fBI*tfi ).9,2 )3=|CNTHENG05UB 
5040: Bl =Bl+UflLfRIGHTt(B!*rfl3.L0)3 
1598 NE_*Tfl 

1600 0FEN1 .UPRINTnl ,:PRlNTni . r3SPC3BUTJ 
GET = BU1KR : :PRINT«1 . r^SPClBlLAG = B 
I 'KR : 

1610 IFKN<2BTHFNPRINT«1 . F 4SFC 3DIFFERENC 
E lNHBU-BUl KR":PRINTM . : BUI =0: Bl =0! G 
0 TO 1625 

1620 PRINT»1, r^SPClDlFFERENCE BU1-INTCB 
13" KR" : PR INTwl , : BUI =0: Bl =0 
162S CLOSEI: IFKN>98THEN108 
1630 I F 7" = 1 THFNKN -KNt 1 : GOTO 1 520 
16-10 GOFO1S10 

3800 REfl SKACRN OP5.UmZRt*x***xx*xxx*xx 

3005 INPUT I CLR3C 2CN3C 2CH1K0NT0 NR . ' : KN 

3010 FaRp,= iroriD:FORB^tTO100 

3020 IFB=KNTHENBU1 =BUl *BU[fl ,B 3 

3030 NEXTB .fl: PRINT (' CLR31 CN JF 2CH3KONTO . N 

R. TE* I.KN ): PRINT 

3010 PRINT ' I 2SPC 3MDr 2SPC 3DGI 2SPC3NRI 2SPC 
1TFKSTC 14SPC1UE1.0B 

3050 FaRn--iraB[ 

3060 lFUnLrrUD*i:BI*CA3.9.2 3 J=KNTHENGOSUB 
4000: B I =01 tUOLCRJGHTt(BI*CP). 10)3 
3070 NE*TA 

3080 PRINT : PRINF BUDGET BUl 'KRL 3SPC3 ' ! : 
PRINT' BILftG Bl KR" 

3085 IFKN<20T|IENPRINT DIFFERENCE TNT CP 1 3 
-BUI ' KR - BUI =0: Bl =0: GOT03 100 
3090 PR INT DIFFERENCE "BUI-INT CB1 3" KR : 0 
Ul P': f : r- 

3100 GETft*: IFfl* = , " , THEN31B0 
3110 ]Ffl*<> THEN! 00 

1000 RE(1 SKflEKPl BlLLEBExxtxxxxxxxxxxx*** 
-1085 PRINTSP*; 

4010 PRINTMIOiCBI*Cfl3.5.2):!PRINTSPi; 
4020 PRINTniD4CBI*CR3,7.2 3; :PRINTSP»; 
■A03B PRlNTrHDi(BIiCf»),9.2)i tPRJNTSP»: 
- 4035 PRlNTniD*(BI*rft), 11 .123; :PRINTSP*5 
1010 PRINTRIGHTt FB I it A 3 ,10 1 
1100 RETURN 

500B REfl PRINTER f<\JT\mxxxxxxxxxxx%xxx%x 
5010 fl*= :0PEN1 .1 

5020 PRlNTfl .CWR*Cl4);CHR*C153 80 : TE4T.K 
N3:PRlNT»l ,CHR*C 15] 

5030 PRINTnl . F 3SPC3Hp.flNED PftTO KDNTO NR 
F 5SPC] TEKSTf 1 7SPC 3BEL0B :PRINT»1 
5835 CLOSE 1 : RE TURN 

5010 0PEN1 .1: PRINT* l .CHR*C 163 03 NIDMB1 
tCP. 3,5 .21; 

5050 PRINT«1 .CHR4C16 3" 18 ID*C Bl *Cfl 3.7 ,2 

31 

5868 PRINT«1 .CHRtf 163 15 NIO* CBI * CB 3 .3 .2 

li 

5070 FFINT*1 ,CHR*C163 28 MID*(Bl *Cfl 3 , 1 1 , 
123: 
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5GB0 PRINT*! .CHR4C16 3 45 RI GHT » CB I *CA 3 . 1 

0} 

5090 CLOSE l: RETURN 
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Til Commodore 64 



10 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
20 REfl X * 
30 REfl x MASTERMIND * 

40 REfl x x 
50 REfl x HENN1NG BIRK * HELSING0R x 
60 REfl * * 
70 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
80 : 

90 POKE53280. 15: P0KE53281 .15:R=0 

100 PRlNT"[CLRKBLKjtS/UH*S/*j (1 fl S T 

E RP I NDt 13S/*]CS/ir : 

110 PRINT I S/J ][ 38S/* ][ S/K]" ; 

120 PRINT CBLUHS/UH IGS/xlt S/*I ][ 5SPC]C S 

/UK 14S/XJC S/I3 

130 PRINT 

140 PRINT" f S/J K !6S/x]tS/Kjr 5SPC3rS/J]C 1 
4S/»3CS^K3 

150 PRINT"! BLU] t SAJ U 1 lS/x ]£ S/I] [ 4SPC3C 
GR2JCREUJC 1 1SPC3C OFF J 

160 PRINT f BLU1 CS/BJ1 = HUID CUHT3CREU3 
f 2SPCH BLIIH 0FF3C S/8:C4SPC3t GR2 3CREUJE 11 
SPC3U0FF] 

170 PRINT"CBLU3 [ S/B 3C 1 1SPC J[ S/B3f 4SPC3C 
GR23CREU3CMSPC3COFFJ 

180 PRINT'T BLU] LS/Bj2 = RBDC 2SPC 3C RED3C 
REU3C2SPC3C BLU3C OFF JC S/93C 4SPC 3C GR2KREU 
H 1 ISPC310FF3 

190 PRINT C BLU] C Z/BIt \ tSPCJt S/B3C 4SPC3C 
GR23C REU3C 1 1SPC3C OFF J 

200 PRINT "C8LU3 CS/B J3 = CYAN CCYN3CREU3 
[ 2SPC3CBLUJCOFF3CS/BK4SPC3CGR2UREUJC 11 
SPC3C0FF] 

210 PRINT "t BLU 3 [ S/B 3 1 1 ISPC ][ S/B3C 4SPC 3C 
GR2 3EREU3C 1 1SPC3C OFF 3 

220 PRINT C BLU j [S/834 = PUR. CPUR3CREU3 
[2SPC3rBLU3[ 0FF3CS/BJ[ 4SPC3 C GR23CREUJ[ 11 
SPC3C OFF 3 

230 PRINT '[BLU3 C S/B 3C 1 ESPC3C S/B3C 4SPC3C 
GR23E REU3C 1 1SPC3C OFF J 

2-40 PRINT*! BLU3 CS/B35 = GR0N CGRN3CREU3 
C 2SPC3CBLUHaFFHS/8]C4SPC3[GR23[REUJC 11 
SPC3C OFF] 



250 PRTNT 'C BLU3 [ S/B][ 1 15PC3C S/B 3C 4SPC3C 
GR23CREU3C 11SPC3EGFF3 

260 PRTNT 't BLU3 CS/B36 = BLAC C03C CU3 .E CN 
][ CH] t BLU3C REU3C 2SPC3C 0FF3t BLU3C S/B][ 4S 
PC3C GR23CREU3C 1 ISPC 3C OFF 3 
270 PRINT'T BLU] t S/B3t 1 1SPC3C S/B3C 4SPC3C 
GR2JtREU3C 1 lSPC3tOFF] 

290 PRINT'T BLU3 C S/J ]£ 1 1S/X3C S/K 3C 4SPC3C 
GR2JCREU3C 1 1SPC3COFF3 
298 FOR B=1T02 

300 PRINT'T 18SPC3CREU3C 11SPC3C0FF3 
310 NEXT B 

320 PRINT" CWHT3CS/Q3COFF3 RIGTIG FP.RUE 
330 PRINT" C CN 3 C BLK3C S/Q3C OFF 3 RIGTIG PL 
fiSERET 

340 FA»C13=TH0I13[3CN] F0RSTE FARUE II " 
350 FfltC2 3 = 'THOH]C3CN3 flNDENE 2SPC 3FARUE 
!! 

360 FF»tC3 3- CHOrt3[3CN3 TREDIE FflRUE 1 1 " 
370 Fn*E4 3 = "C H0rs3r 3CN3 FJERDE FARUE II 
380 GOSUB 560 
390 Q=0 

400 REP xxx INPUT f\f F^RUER *** 

410 : 

428 PRINT'T H0M3C 3CN3C BLU3C 17SPC3EBLUJ" 
<»30 FOR X = l TO 4 

440 PRINTFA*CX); ;6ET Ft: IF Ft=" "THEN 110 

441 IFFi= T THENFUCX 3=1; GOTO 450 
412 IFF*="2"THENFUCX3=2:GOT0 450 
443 IFF* = *"3 rHENFU(X3=3;GOTO 450 

411 IFF*-' 4 THENFUtX 3=4: GOTO 450 

445 IFF*-'*5 THENFUCX 3=5: GOTO 450 

446 IFF*-' 6 THENFUCX 3=6: GOTO 450 

447 GOTO 440 

450 QtQ>1:F=FUCX3 

460 P0KE1282+X*Q,81 : P0KE55554+X+Q ,F 
470 NEXT X 

480 PR INT "T HOd 3 1 3CN 3 FflRUEN OK. (J/N 3" 

490 GETKi: IFKi=" "THEN 490 

580 IFKt = ' J " THEN 690 

510 IFKt = "N" THENQ=Q-4 : GOTO 430 

520 GOTO 490 

533 : 

540 REM xxx GENERERING AF FfiRUER xxx 

550 : 

560 F0RX=1T04 

570 fi=INTCRNDtl 3x6 3*1 

580 GENCX 3=fl 

590 FOR Y=1T04 

600 IFGENCX 3=GENCY 3THENG = G+1 
610 IFG>1 THENG=0: GOTO 578 
620 NEXT Y 
630 GENCX 3=fl 
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1 1 n 
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■ z n 
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Printer Routine 
Til Commodore 64 



1 REM POKE 775,200:REn LIST UIRKER 1KKE 

2 REfl fDKE ?75,1G7;REM LIST I GEN 

3 REN POKE 774.248;P0Kr 775.252:REM WPRH 

RESET UEU L15TNING 

4 REN POKE 808. 2: REN RUrVSTOF-RESTURE 

UDE flF PUNKTION 

5 RFN POKE 88B , I REN RUN/STOP-RESTORE 

OIRKER TGEN 

6 RFNT60EL] 

7 Rr.N 'f 6DEL U 3^PC]PR INTER ROUTINE FOR PR 
□GRflNLIISIER 

8 REM f 6DFL][ 3SPC]LflUET flF STEEN SCHNELT 
ZER FOR RUN 

9 REM T BDEL J 

10 PRINT"! CLRK REUJPR INTER UDSKRIFT f\F B 
ESTFNTE SUBROUT I NERf OFF ] " 

12 PRINT'T 3CNJSUBR0UTINES NOUN " 

14 PRINT r3CN]STftRrER FRfl LINIE NR. 

16 PRINT - r 3CNJSLUTTER UEO LINIE NR. 

18 INPUT'rH0MJ[5CN]t21CHj JNflUN*: IF NP-UN 

t= ' THEN 19 



20 INPUT 'THOM3E3CNjr2LCHl";S: IF S < 1 TH 
FN 20 

22 IF S=0 THEN 42 

24 INPUr-THOMU 13CNK21CHI":L: IF L < ST 
THFN 24 

26 PRlNT r5CN3[5CH1JUSTER PflPIRET I PRIN 
TEREN NUr 

28 PRINT"r4CN3C7CH3TflST I REU ] Fl tOFF jl N 

1R OU ER KLflR HMOfl] 

30 GETfl*: IFAi= ' THEN30 

32 IFflK>CHRif 133 1THCN 30 

34 OPEN 4.4:rMD4:pRiKiT"SUBR0UTIHE : - CHR» 

U4);NnuN*;CHRiti5); 

36 PRINT" FRH LINIE CHR*( 1 4 J; S ; CHR4C 15 ) 
TIL "CHRtf 143;L;CHR*C15) 

39 PRINTW4: CL0SF4 

40 PRINT"tCLR]C2CNV 

42 PRINT"rC0]0PFN4 .4: CM01 : L I ST' S" - " L 
44 PRINT"PRJNr«"1:CL0SE'1" 
46 PRINT' , E4C01 : 

4B P0KE631 .13:P0KE632.13:P0KE13S.2 

49 POKE 53280 .0 : REP1T 28DEL3HER CR DER PL 
ADS TIL PIT NflUN 

50 END 

99 HER STARTER RESTEN tlF PROGRflflMET 




F1NPNS 

INDSENDT flF 
P10GENS LflRSEN 
SPRDEN B2 III MF. TH. 
2630 TfiPSTRUI 1 

Til Commodore 64 



1000 REM xxx FINRNS SPIL 27/4/^5 XXX 
1810 REM xxx nF MOGENS LflRSEN xxx 
1020 POKE53280 .6: PRIISTT CLR][ UHT ] ' : F0KE7 
92,134:PDKE793 ,234 



1030 FORX=0rO38:POKE1024+X.42: P0KE55296+ 
X.UNEXT 

1040 FORX-0TO920STEP40:POKE1063fX.42»POK 
E55335+X , 1 : NEXT 

1 050 FORX=0TO19: POKE2023-X ,42: P0KE56235- 
X, 1 : NEXT 

1 060 FORX =0TO920STEP40: P0KE1 984-X ,42 ; POK 
E56256-X,l:NEXT 

1070 PR INTTflOf 10 )"[ 7CN3UI SPILLER FjNflNS 

■ 

1080 PRINrTAB[7)"C2CN3DU STARTER ME.P 100 
08 KR. 

1090 PRINTTA8C 12 J"C 2CN1ER OU KLflR 7* 

1 100 GETX*: IFX*= ' ' THEN 1 100 

1 200 B - 1 00000; n = l 0000: 0K = 1 000000 



v8 



1210 FORX=0TO9:BCX 3=1 00000: KCX 3=1 B0: READ 
x*CXJ:NEXT 

1220 DflTAfB 3APPLE. . - . ri 3BAHC0 C2 3CUHA 

TR i X , t 3 3DANTAX . . . C 4 3ECC0 

1230 DATAC5 3FORD C8 3GLOPI C7 JHOSB 

V. , . ,(83ISLEf C3)JflM0 

1249 PR I NT"C CLR1C CH3 1 .OflGANGC 2SPC 3BANKE 
N[ 3SPC 3 S P I LLERt 3SPC ] KURS 

1250 PRINTTCNIKONTANTBEH. B ,A: PRINT 
1260 FORX=0TO3;PRINTX*CX 3; BCX 3 .ACX 3 ,KCX 3 
i NEXT: PR INT [ rhOKURSUAERDI . BK. AK 

1580 POKE53280. 6: 0=0+1: PRINT T HONK CHJt 2 
SFC3 :pRlNrrCO]"O:T=0 
1600 IFO<25THFN2000 

1610 P = 17:GOSUt37200:PRlNTTABC9 3 ' W SPIL 
LET ER SLUT 

1620 PRINTTABC23' I CNJ w DU HAR FOR0GET 
DIN FORPIUE ilEU *** ' 

1630 PRINTTABM33' [CN3«it ' INTt t(P+AK 3-1 
0000 3/100 3 " « tw 

1640 PR 1 NTT ABC 3 3 rCNJXXX UIL pU SPJLLE E 
T NYT 9P1L xxf 

1650 PRINTTABU33 TCN3*** C J/N 3 x**" 
1660 GETXi: IFX4=' THEN1660 
1670 IFXiO* I ' THENEND 
1630 GOTO1200 

1939 REH xxx HANDEL K0B/SALG xxx 

2000 P = 17:GOSUB7Z00:PRINT"HUILKE AKTIER 

0NSKER DU AT HANDLE 

2010 GE TCi: IFF. t = THEN2B10 

2020 PRINT' f GCU) Ct 

2030 IFC*<>"B ANOCtO T'ANPCtO' 2 ANPCS< 
>"3"flNDC*<>"4 THEN2050 
2040 GOTO2060 

2050 IFCtO "5 ANDC*Q'e'ANDC*<> 7 ANPC*< 

>"9"flNDC*<>' 9 THEN2010 

2060 C=UALFC*) 

2070 IFRCC 3^0rHFN2200 

2090 IFBCC T=0TIICN2300 

2100 P=19:GOSUB7200:PRINT UIL DU KBBE EL 

lER SAELGECK/S1?" 

2110 GETX*: IFX1- THEN21 10 

2120 S=19:GOSUB7400 

2130 IFX*= K FHFN2200 

2140 IFXtO"S THEN21 10 

2150 GQTO2300 

2200 P = 19: GOSUB7200: PRINT HUOR P1ANGE AKT 

IER UIL DU K0BE t H=0 

2210 INPUT' r 10CUJ":H: IFHO0THEN2240 

2220 H=f4»100/KCC 3: IFH>B<C 3TH£NH=B(C 3 

2730 H - I NT C H/ii 000 )* 1 000 ' GOTO2270 

2240 H*-RIGHr*fSTRifH3.33 

2250 IFPUD»rn* .1 , 1 3<> 0' ORniD*CH*. ,2 . 1 )<> 

0"ORMP*CH*,:"M )<>' 0 THEN2400 
2260 IFH*KtC )./10B>AORH>BCC 3THEN2400 
227B GOSUB7000: GOSUB7300: S = 1 7i GOSUB7400: 
GOTO3000 

230B P : 19: GO5UB7200: PRINT HUOR MANGE AKT 

TER UIL DU SAF.LGE":H=0 

2310 INPUT " T BCU) ' : Hi IFHO0THCN2340 

2320 H = B»100/K(C 3: TFH>A tt" 3THENH =flCC ) 

2330 H = I NT C IV 1 0BB W 1 000 : GO TO2370 

2340 H*=RIGHT*fSTR*tH3.33 

2350 IFniP*tH*.l .1 )<> 0 0RHID4(H*,2.1)<> 

0- 0Rnib»rH*.3,i 300 then 2400 

2360 IFH*KCC D/100>0ORH>ACC 3THEN2400 
2370 GOSUB7106:GOSUB73B0: S=17:GDSUB7400i 
GOTO30B0 

240B P=21: GOSUB7200: PRINT HANpEL KENDT U 
GYLPIG |' 

2410 FORX=0TO2000:NEXr: S=l 7: GOSUB74B0: H= 
0= GDTO2000 

2999 REfl x** BANKEN UAELGER xx* 

3000 IFO<10THrNfi000 
3010 IFOO10TlirN3100 

3020 P = l?: GDSUB7200:PRlNT"t5CH3^* NU Sf 
ILLER BANKEN PIED 

3100 FORX=0ro3000:NEXT: S= 1 ?■ GOSUB7400 



3110 Z=0tFORX=0TO9:Z=Z*BCX3iNEXT: 1FZ=0TH 
FN4000 

3120 Z=0:FORX=0TO9:Z=ZrAtX3:NEXT: IFZ=0TH 
FN5000 

3130 Y = INTCRN13K 1 >*23-H 

3140 IFY=irHrN40B0 

3150 IFY=2rHCN5000 

3393 RErl xxx BANKEN K0BER *** 

4000 FORX=0rD^:XCX3 = KfX3: IFACX ]>0THENT=T 

^010 NEXT 

4020 FORX=1TOT:FORY:1TOT 

4030 IFXCTCX)D<X(T(Y ) .1THENXCTCY ) 1 = 1000 

4040 NEXTY .X 

4050 FORX = l TOT: IFXCTCX 3 3<> 1000THENC = TCX 3 
: GOTD4070 
406B NEXT 

4070 IF tfltC l^KCC 3/100 3<(B* 100yKCC 3 3THENH 
-CACC3XKCC 3/100): GOTO4090 
4080 H = CB*10B-'K(C3) 

4090 H= INTCRNDt 1 3*H )+ 1000: H = C INTCH/1 000 3 
1X1000 

4100 IFCHxK(C )/!00)>BTHENr-0'GOTa31l0 
4110 P= 17! GO^UB7200: PRINT 0ANKEN K0BER ' 
C" FORL 7CU J (.1 CH3 M 5CH3 ' H 

4120 GO^UB750B:^=17: GO5UB74B0t GO^UB7100! 
GOSUB73B0 

4130 p-1 7: GO { ifJB7200: PRINT' BANKEN HAR KBB 

T C FORt 7CU l(f CH] 1C 5CHJ H 

« 1 40 GOSUB7500: S = 1 7' GOSUB7400i GOTO6000 

4999 REPI BANKEN SAELGER **X 

5000 FORX = 0TO^:XCX3-KCX3: I FBCX )>BTHENT=T 
*UTtTJ=X 

5010 NEXT 

5020 FORX = lTOT:FORY = nOT 

5030 IFXCTrXn>XCTCY])mENXCTCY3 3^0 

5040 NEXTV.X 

5050 FORX^ITOT: 1 FXC T C X 3 3O0THENC =T (X jl GO 

TD5070 

5060 NEXT 

5070 IF(BCC )*KtC )/100)<CAxi00/K(C3 3THENH 
= CB(C )*KCC 3/100 3: GOTO5090 
^080 H=f A^100/KCC)3 

5090 H = INT CRNDt 1 D*H )t 1000: H = C INT CH/1000 3 
1X1 0B0 

5100 1FCHXKCC )^1B0 )>ATHENT=0: G0TO31 10 
•5110 P = 17: GOSU07200: PRINT BANKEN SAELGER 

C " FDRC7CU1 Cir.HJ ICSCH] H 
51 20 GDSUB7500: S - 17: GOSUB7400: GDSUB?000: 
GOSUB7300 

S13B P^17: G0SUB7 200: PRINT BANKEN HAR SOL 

GT "C" FOR[ 7CUJC T CH ] 3C 5CH3 "H 

5140 GOSUB7500: ^ = 1?: GOSUB7400: GOTO6000 

5999 REN XXX KUR SEN BEREGNES xxx 

6000 FDRX=0TO9 

6010 2 = INFTRND( I )* 1 00 3: Y = I NT f KND ( 1 3x2 3+1 
6020 IFY = t rifCNK(X)=KtX3+Z:K*CX3= OP 
6030 IFr = 2nirNKCX3=KtX) Z:K*CX3= NED ' 
604 0 IFKtM 3<20THEHKCX )-KCX)-tZ: GOTO6010 
6050 IFKCX )> 1 000 THENK C X 3^K C X )-Z : GOTO60 1 0 
6060 NEXf 

6100 PRINI f I IOri3 C 3CN3 :FORX=0TO3 
6110 PRINrTAB(31 3 f 4SPC3 1 ABC 35 ) [ 3SpC 3 
= PRINT rcO] rAB(301KtX)TAB(35)K*CX3:NEXT 
6120 AK=0:BK=0:FORX=0TO9:BK=BKt(BCX 3*KCX 
3 3/100: AK=OKt r Af X 3xK f X 3 3/100; NEXT 
6130 PRINT T TN I ' 1 ABC 12 3 t 7SPC)t 2CH 3 C 7SPC 

6140 PRINT T C03 TAB [ 1 1 3BK: PRINT f CO 3 TPS 
t20 3AK 

6150 GDTO1500 

6999 RET1 SUBRUT INER 

7000 A=A-l lxKCC 1/100: B^B^H*KCC 3/1 00 > ACC ) = 

ACC 3+H:BCC 3--B[C J-H: RETURN 

7100 A^AiHxKCC 3/100: B=B~H»KCC 3/1 00t ACC 3 = 

A(C)-H'.BCC3^B(rjtH: RETURN 

7200 PRINT rHDrll :FORX-0raP-2:PRlNT:NEXT 
t RETURN 
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7300 PRINT II.0MK2CN1 Tfi&(\2) [ 6SPCK 3CH 


1 UOtJ 


7R 


i QQo 

i3 =*3 


202 


2000 


133 


1C6SPO rPKinr rcovTflBtii jb.a 


2010 


119 


2020 


*- 


? mo 

'HJH 


Z-3H 


7310 Faf?X^nrf)C:PRlNt:Ni:XT: 


PRlNTTflBC12J"[ 


2010 


g 1 




1 « 
13 




1 14 


espc3C3CHJt nspci 




2078 


I 71 
i/ 1 


3 a a a 

/.del 


1 7S 


/. 1 old 


1 55 


7370 FRINT tl'dl TnBtU 1BCC nnB(ZB)ACC) 


21 10 


1^1 


7 1 70 


| 
i 


71 TO 


< -jo 

1 /3 


733B flK-0:im^0:FORX=BTO9:BK=BKtlB(X:i*K(X 


2118 




J 1 ^3 
l£ 1 Jl 1 




/ -*Hl*l 


4 


7 7/108: flK --OK • f ft(X )*KC X J 7/1 00: NEXT 


2210 


1 26 


2220 


i -J 




l /z 


734B F^l3:rul < ;UB72BB:PRINTrflB(J27 T 7SPC7C 


2218 


2*11 


7*758 


1 RR 


7 'F (I 


1 22 


2CH3I 73PCJ 




2270 


i n<i 

1 U t 


■ - ■ • > ■ 


1 1Q 

1 /3 


2310 


63 


7358 PRINT I roj TflBCl 1 JBK: PRIMT f CO J TAB 


2320 


1 4 








O i-1 /I 


C70 1AK: RETURN 




2350 


1 '-t 








1 Da 


7100 IFS = 17THI N7440 




2100 


1 36 


?A 1 0 


7SS 


7QQQ 


i yz 


7110 IFSl3ll<rN7450 




3000 


91 


3010 


1 B 


3070 


1 £ -J 


7120 |Ft=.2J IHI-N746B 




3100 


23 


3118 


1 07 


"7 1 Oil 
J 1 <ll*J 


I Id/ 


7130 RCTURN 




31 30 


7 


a 1 a R 


- Ul 

JO 


3 1 F?A 
J I JO 


j 2 


7110 FORX= L7B1T0174*3:P0KEX ,32:NCXT 


3939 


I 4 


1 1" 1 1 ' ft 

'1 1 Li 




1 Ul B 


130 


7150 FORX = I 784 jq i g 2:j - POKFX . 32*. NEXT 


1028 


163 


4B30 


76 




ri<- 
* 3 


7160 FORX-lSF^rO1303:POKEX 


,32iNEX T 


1038 


1 07 




1 i i 




1 BO 

1 S3 


7170 RETURN 




40B0 


BR 


4030 


7*a 


*4 i tola 


p; Q 

UJ 


75BB FQRY = 0 Tlffi: PRINT T MUfl ] 


:PKJNT: PRINT! 


1 1 1 P 


1 I 5 


4 I \) 


1 7fl 


tt i i _ « 
" 1 -'U 


/I vi 


FORX=BTaC: PRINT: NEXT 
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i ftq 
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-> 

JJ 


?318 PRINI rnUI125 1 5SPC ][ 3CH71 6SPC J :FOR 


50 I 0 




■ 1 ■ 1 1 
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l ■ i ' 
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95 








1 30 
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□RX=BTO200:NrXTX.Y:RErURN 
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RB?n 


4'l 


1 - ; 1 1 . \ < i 


Q CI 

33 




193 




. . 1 1 | DtS 


t Qa 

1 Jl! 


t: 1 no 
D 1 \av 


24o 


6110 


56 


1080 138 1010 160 


1020 26 


fi1 70 




D 1 JfeJ 


Ci 1 

41 


6 1 10 


139 


1030 237 1010 39 


1850 239 


□ J _! i 


7R 




*£34 


7000 


246 


I860 56 1070 58 


10B0 210 


7100 


71fi 


■Vil 
-tin 


t Tl 


/ JWo 


225 


1080 33 1100 183 


1200 253 


7310 


7B 


7370 


1 I 7 




J4 


1210 163 1220 0 


1230 162 


7310 


56 


735W 


DJ 




110 


1218 212 1250 110 


1 260 82 


7110 


1 1 3 


7470 


1 07 
1 O/ 




142 


I500 70 I600 93 


1610 142 


7110 


64 


7450 


71 


7160 


63 


1620 17B 1 630 I SB 


1610 226 


7470 


142 


7500 


289 


7518 


202 


I650 111 1660 200 


1670 32 


7S20 


1 









270 F0RI=15872TD15936 
280 READ Q:P0KEJ ,f3:NEXTI 
738 : 

300 DAT fU 27, 255. 254. 255, 255, 255, 255. 255, 
255 .255 .255 , 255 . 255 . 255 . 255 ,255 ,255 . 255 
310 DRTf7192.0 ,3.160.0.5.114.0 .3,153.255 , 
219 . 1 53 ,255 . 249 . 1 59 . 255 . 213 . 1 59 .255 , 213 
320 DfHA159, 255.213. 1 31 ,255 .253 , 131 , 255 . 
253 , 255 , 255 . 255 . 1 32 . 0 . 3 . 1 32 . 0 . 3 , 1 32 , 0 . 3 
330 DftTm27.255.254.84.62 
310 S=B 
350 U?53248 

360 PDKF 2040 .218: PDKF2011 .218: PDKE2012 , 
218 

370 P0KEUt21 .7 

3B0 POKEUt 33 . 1 : P0KEU+4B .0: P0KE>t-41 . 1 1 

330 P0KEUt23.7 

400 P0KEU-t-2,176:P0KEUi-3,55 

410 POKEU+4.176:POKEU+5.160 

420 X=145: V=235 

438 RET1 * STVRE RUT1NE % 

440 : 

450 J0Y=PEEKC56321 ) 

460 IF JOY =251 AND SOB THEN X=X-1 
470 IF J0Y=217 AND SOB THEN X=Xtl 
480 IF J0Y=254 f7ND S<12 THEN S"S+2 
438 IF J0Y=253 flNp S>-5 THEN S=S-J 
500 IF J0Y=233 THEN GOSUB 610 

510 Y=r-s 

520 IF Y<S HNP 0K=1 THEN 960 
530 IF Y<S THEN V=2S5 
510 IF Y>255 THEN Y=0 

550 IF PEEKCU-i-30 7=3 OR PEEKCO+30 7=5 THEN 
GOTO 660 

560 IF PEEKCU+31 7=1 THEN GOTO 690 
570 POKEU ,X: POKEVJ+1 ,Y 

580 GET flVIF fl*= TF1J- THEN GOSUB 758 



i-^?BrSvSr^fe PETER fl-JflrOBSCN L BO MflDSEN 
ffWM^ LG « S ^EWUE 13 
' i J * (j08B PflRHUS C . 



Til Commodore 64 




100 PRINT t CLR7 

118 PRINT TUHTJt&SPC3wC2SPClK B R E P 
R 0 U E N 

128 PRINT TCNK6SPC7*** flF PETER A. JftKO 
BSEN 

138 PRINT' T CNlt 6SPC JxxfC 5SPCJDG BO (IflDSE 
NC5SFC3>!3t^" 

140 PR INT' T CN3E 6SPC3 7SPC3 CC ] 1385C7S 

PC3?tW 

150 PR I NT T 3CN3C 3CH J t 6SPC3 JOYSTICK » 1 FO 
R STYRING. 

160 PRINT"rCN3C3CH3C6SPC7FIREKNflP : BRET1 
SER , 

170 PRI NT T CN3T 3CH3C 6SPCJF 1 : PARKER I NGS 
BRET1SE. 

180 INPUT '2CN3C3SPC3 1 EFTERNflONL 3SPC3 i 
E* 

130 INPUT T3SPCJ2 FDRNftUNt 5SFC3 I Ft 
200 INPUT t 3SPC]3 FBDSELSOf-iTO iDt 
210 I NPUT " T 3SPC J 4 BOPflEL[6SPC3 :B* 
220 POKE 532B1 ,14:PRINT TCLR) 
230 FOR 1=0 TO 24 

240 PRINT TUIHT3CREUJE4S/OJCOFF3C8SFC7C2 
S/BK8SPC][RE«JJ[ 4S/03CQFF3 
250 NEXT 1 
260 RESTORE 
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530 GOTO 150 
600 ; 

610 REM- * SREflSER * 
620 : 

630 IF S<6 THEN S =0: RETURN 

610 POKE Ut23.6:FuRPMTO100:NOCT:POKEU+2 
3.7 

550 S=0: RETURN 

660 REM * (COLLISION BIL-BIL * 

670 FOR 1=0 TO 15:POKEUt39, I : FORP* 1TD10: N 

EXTP:NEXTI 

680 GOTO 7B0 

690 REM X KOl.LISION STREG-FORTOU x 
700 IF X>110 THEN GOTO 660 

7I0 PRINT "IHOm rA8(26> [ 2CN 3C BLK H REU J 0 

UERSKRIDNING 

720 FORP=1TOI000:NEXT 

730 PRINT rHOflJ TABC26 ) [ 2CN3C BLK3I l 3SPC 
710 GOTO 780 

750 REPl x PARKT R I NGSBREMSE * 

760 IF SOC THT H GOSUB 610:RETURN 

770 IF X>=I75flNDX<=l77ANDY<l78ANDY>71 TH 

FN OK=l: GOSUB 320: RETURN 

780 REM CLEAR SPRITES 

730 DUMP=DLIMPH: IF DUMP=5 THEN 860 

B00 P0KEU+2I .6 

SIB X=115:Y=235 

828 POKEU.x:pOKE'J+l ,V:POKE<J+21 ,7 
S30 rOKEU+30.0:POKEU+3l ,0: POKEU1 39 , 1 
810 S=0:OK=0 
850 GOTO 150 

068 POKF_Y+2i,B;PRINr'(CLR3" 

870 PRINT TBLKll 2CN3 UI MAA DESUftERRE ME 

DDELE AT DE IKKF 

880 PR I NTT BLK]I CN3 HAR KUMNET BESTflA K0 
REFR0UEN. . . ■ 
890 FORP=1TO2000 
500 NEXT P 
9I0 GOTO100 

520 PR I NT "f HOP1] "TflB( 26 3 C 2CN]C BLKX REUJG 

OO PARKER I NG 

930 FORP=ITD10B0:NCXT 

910 PR I NT T HOn I ■TABC26r , t2CN]CBLK3C 1 3SPC 
350 RETURN 

960 POKEUf 21 .0: TRiNT l CLR3 

970 PRINT T BLKJI 2CN3 DE HAR NU BESTflAET 

K0REPR0UEN. 

980 PRINT I BLK JC TN3C 12SPC 3 TILLYKKE. . 

330 PRINT TBLKJCCN1 TAEND PRINTEREN OG M 

OUTAG DERES 

i000 PRINT [BLK3I GN3 K0REKORT 

1010 GETA4: IFfttOCHRte 13) THEN 1010 
1020 OPEN1 .1 

103B PRINT»1 .-F^EBEUISf2SPt;jPERf1IS DE C 
ONDUIRE 

1010 PRINT-l . 

105B PRINT«1. TFTERN6UN: 
1060 PRINT*1 ,E* 

IB7B PRINT-1 ," 



1180 PRJNTM. rC/P][S/ 

U3t3C/-+]rS/IJ[C^N] ■ 

1130 PRINT" I - UUSTEOT 1985C 6SPC ] ( C/P H S/ 
B3CS/U] [S/UJ[S/8}[C/N3 

1208 PRINT"! . EC/f][S/ 

B3 tS/S] C S/BH I-/NJ 

1210 PRINT" I „ GYLDIGT TIL 20051 2SPC H C/P 

ics/sjis/jirs/yjrs/Kjf s/sicc/nj - 

1220 PR INT" 1 . " [C/PHSX 

J3tSvI3 (S/U3lS>K)tC/N] ' 

1230 PRINr"l . 't I8SPC1CS/L3C5C/P3[S^03 

1210 PR1NTH . " 

1250 CLOSE i:GDTO100 



KONTROLSUri FOR K0REPR0VE 



100 


112 


110 


235 


120 


13 


130 


9 


110 


215 


150 


111 


160 


13 


1 70 


216 


180 


73 


190 


218 


200 


B8 


210 


115 


220 


215 


230 


22 


21B 


70 


250 


235 


268 


110 


270 


17 


280 


1 18 


290 


58 


300 


100 


310 


80 


320 


61 


330 


216 


318 


53 


350 


11 


360 


12 


370 


93 


360 


181 


390 


95 


400 


15 


410 


91 


120 


131 


130 


203 


110 


58 


150 


181 


168 


226 


^70 


230 


100 


93 


190 


215 


580 


21 


510 


98 


520 


252 


530 


152 


510 


1 15 


550 


127 


560 


52 


570 


218 


580 


27 


590 


66 


600 


58 


610 


83 


620 


58 


630 


2B3 


510 


716 


650 


253 


660 


212 


670 


172 


680 


72 


630 


169 


700 


It? 


710 


17 


720 


213 


73B 


186 


710 


72 


750 


217 


760 


133 


770 


59 


780 


96 


798 


128 


800 


92 


810 


131 


820 


113 


830 


129 


810 


235 


950 


66 


860 


0 


070 


176 


880 


101 


898 


26 


900 


212 


910 


26 


920 


201 


930 


213 


910 


186 


950 


112 


960 


0 


978 


122 


980 


211 


930 


6 


I 800 


168 


1010 


185 


1B20 


18 


1030 


29 


1018 


82 


1050 


28 


I860 


91 


1070 


82 


1880 


111 


1030 


95 


1100 


82 


l 1 10 


181 


1120 


93 


1 1 30 


82 


l 110 


25 l 


1 150 


9L 


1 160 


82 


1170 


203 


I 180 


68 


1 190 


189 


1200 


75 


12 10 


188 


1220 


7 


1230 


106 


1210 


82 


1250 


69 







108B PRJNr«l . FORNAUN: 

1090 PRINT"! ,F* 

1103 PRINT*! . 



I I IB PR INTs l . T^USELSDATO: " 
112B PRINT-1 .Dt 

1 130 PRINT-1 . 

111B PRINT«l , BOPEL: ' 
I 15B PRINT»l .B* 

1160 PR INT nl — 

1170 PRINT«1 ."UUSTEDT AF CBH 61 [S/OJC5C 
xY3C S/P J 
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/z^ An QUICKFIND 64 

'frH&^ MORTEN KNUDSFt* 



BALDERSUEJ 3 
7000 FREOERICIA 



TIL COMMODORE 64 



CBH64-LIST" 



100 PRINTCHR*CH7 3 
IBS PRINT' 
i 10 PRINT 
T 

115 PRINT 
RANGE 
120 PRINT 
IGHT BLUE 
175 PRINT 
REY2" 
130 PRINT' 
REY3 

135 PRINT 
LR SCREEN 
110 PRINT 
URS.HOtfE 
145 PRINT 
EU.ON' 
150 PRINT' 
PU.OFF 
155 PRINT 
ELITE' 1 
160 PRINT 
UNC .KEY" 
165 PRINT 
TRL+KEY" 
170 PRINT 
Bfl+KEY' 
175 PRINT' 
HIFTtKEY 
100 PRINT " 

face 



HIFT SPACE 
190 PRINT' 
AD CHR" : PRINT 
195 PRINT' USE THE BASIC - CHR1C31 J; LIS 
T" :CHR*C34J; COrWAND AS NORHflL ' 
208 F=43152:E ^49799: REN F=START . E=ENP 
205 IFF>EGOTO230 

210 C»F-lNT(Fx256)*256:F0RF=Fr0F-t-7 

215 REflDBi C = (CtB 1ANP255:P0KEF .8: NE><T 

228 READB: IFBOCTHENPRINT DATA ERROR IN' 

: PEEKC63)+256*PEEK(B4 ) 

225 G0TO285 

230 REP) C0f164-LIST 

235 SYS49l52:REn AKTIUISER 

19152 DATA44, 16.192. 174. 1.132.172,2 ,23 

19 1 68 DATA 1 92 . 1 4 Z . 6 .3.1*0 . 7 . 3 . 96 .95 

19168 DATA36.I5.48.22.201 .96.176,7.105 

19176 DATA201 ,32.114,3,76.213.166.281 ,66 

43181 DATA 12B. 114.7.201 ,204.176.3,76,203 

19192 DATR36.167.201 .96 , 1 76 . 1 4 ,28 1 . 32 , 1 9 

5 

49200 DATA 141 , 10 , 208 , 232 , 208 , 209 ,35 , 8 , 1 3 
B 

19208 DATA 1 36 ,10.208,221,169,91 ,32,71 ,3 
19216 DATA 171 .177.95.162,0.132.73.138.48 
19221 DATA73.230.73.232 ,200,203,95,210' 1 
14 

49232 PATA248, 224,1 r 218,5, 169 ,0,32,231 
19240 DATA205 . 189 .32 ,98 . 192 . 169 .33 .76 , 1 1 
8 

43248 DATA239 . 1 66 . 164 . 73 . I 77 ,95 . 1 70 . 72 , 2 
28 

49256 DflTAl 89 . 176 . 132 , 170. 104 ,224 .255 ,24 
0.118 



f BLK3 


BLACK 


t ORG ] 


0 


rWHTT 


WHITE 


CLTBLU] 


L 


f RED) 


RED 


[GRZ] 


G 


r cYto 


CYAN 


CGR3] 


G 


TBRN] 


BROUN 


fCLS) 


c 


[ LTRED1 


LIGHT RED 


CH0PI3 


c 


r GRi] 


GREY1 


CREUJ 


R 


f LTGRNI 


LIGHT GREEN 


CDFFJ 


R 


tcrj 


CURS .RIGHT 


t DEL] 


p 


tcl] 


CURS .LEFT 


CF1-8] 


F 


ran 


CURS .UP 


C CTRL 3 


c 


rco] 


CURS .DOWN 


C6< J 


c 


t PUR] 


PURPLE 


CS> J 


5 


CGRN3 


GREEN 


rspc] 


s 


CBLU] 


BLUE 


cs>spcj 


s 


r YELJ 


YELLOUI 


C?] 


B 



43264 
49272 
6 

4 9280 
49288 
49296 

29 

49301 
19312 
6 

19320 

I 

19328 

5.52 

13336 

5,176 

19341 

5.ZZ1 

49352 

*,71 

49360 

Z03 

49368 

5.208 

49376 

5,216 

43381 

5,224 

49332 

5.232 

49408 

S.240 

19408 

5.248 

49416 

5.8 

494Z4 

5.107 

49432 

5. 16 

49440 

55.24 

19448 

3,60 

19456 

3.46 

49161 

5.171 

19172 

1 .17 

13480 

5,156 

49489 

49436 

49504 

4951 2 

49520 

.283 

49528 

5.112 

49536 

5. 128 

49544 

3,156 

49552 

49560 

49568 

49576 

49584 

49532 

49600 

49608 

49616 

49624 

49632 

49640 

49648 

49656 



0ATA14.189, 176 . 1 93 , 8 ,4 1 , 1 27 , 32 , 1 24 
DATA71 .171 .232.48.16.213,96.201 ,16 

DATA32.176. 11,1 62 , 1 32 , 7Z , 32 ,113, 93 
DATA192. 101 .11 ,31 .9.64 .76.71 .212 
DATA171 .201 ,123.176,11, 72. 169. 83. J 

DATA32.71 .171 , 169 .17 ,32 ,71 . 171 ,148 
0ATA76. 137. 192 .20 1 .219.176,1,201 .8 

OflTAi 93. 176.234. 169. 63. 76, 71 .171 .1 

DA T A255 . Z55 . 255 . 255 . 255 . 1 33 , 25 5 . 25 

DATA255 , 255 .255 .255 ,255 .255 .255 ,25 

DATA255 . I 9Z . 201 . I 38 .21 0 .255 . 255 ,25 

DATA255 . 255 . 255 , 255 ,112. 196, 151 ,15 

DATA2.255.255.255 .255.255.255.255 . 

DAT A255 . 255 . 255 . 255 . 255 , 255 . 255 . 25 

DAT A255 .255 , 255 ,255 , 255 ,255 . 255 ,25 

DAT A255 . 255 . 25 5 . 255 , 255 . 255 , 25 5 , 25 

DATA255.255.255.255.255.255.255.25 

DATA255 .255 ,255 .255 .255 .255 .255 ,25 

DATA255 . 255 .255 . 255 . 255 , 255 . 255 ,25 

DATA255.255.255.255.255.255.255.25 

DATA 98 . 255 . 255 .255 , 255 . 255 , 255 .25 

DATA255.255.255.255.255,255,255,25 

DATA 255 . 255 f 255 , 255 ,255 , 255 , 255 , 2 

DATA255. 255, 255. 1 01 ,101, 107, 11 0.11 

DATA255. 160.255,255,255.116.118,12 

DATA. 122 .121.126.128. 130 .255,255.25 

DATA 1 36, 198. 207. 201 .255.163,166.1? 

D*TA171.177.182.187,148.194.157.14 

DATAB .5.8,11 . 1 4 . 1 7 . 28 , 23 . 1 78 
DATA26 .29 .32 ,35 ,38 .1 1 .14 .47. 121 
DATAS0.53.56.59.47.65.68.7I .53 
DATA71 . 77 .80 ,83 .86 .89 .92 ,95 , 12 
DAT A98 , 255 , 255 . 255 . 255 . 255 . 255 , 255 

DATA255 ,255,255.255,255 ,255.255,25 

DATA255 . 255 . 255 . Z55 . 255 . 255 , 255 ,25 

DATA255 .255.255.181 , 184 , 107 , 1 1 0 , 1 1 

DATA0.5 ,8.11 ,14.17.28,23,242 
DATA26,29.32.35,38,41 .44.47.188 
DATA50.53,56.59,l7.65.68,7t ,117 
PATA74 . 77 , 88 .33 . 86 , B3 . 92 , 1 1 0 , 9 1 
DATA83 .4? ,83 .88 . 1 95 ,67 , 47 . 203 . 213 
PATA67.47.201 .67.47.212 .67 ,47.171 
DATA 132 ,67,47.193.67 .17 .173 .67.25 
DATA47.205 .67.47.228 .83 .47,220,112 
DATA67 . 17 . 206 .67 . 47 . 289 .67 ,47 . I 97 
DATA 1 96 .67 .47.218,67 ,17 ,211 ,67,112 
DATA47.288 .67.47. 193 ,67 .47,197.873 
DATA67,47,21B.67,47,215 ,67,17.231 
DATA200 . 67 .17 . 202 .67 . 47 ,284 .67 . 1 1 7 
PATA47.217 ,6?.47.213,67.1?,Z07.136 
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43656 DflTP.47.217.67.47.213,67.47.207,136 
43664 DpTA83 ,47 , 1 92 ,67 ,47 . 138 , 67 , 47 ,236 
43672 DflTm 35. 67, 47.216 .67. 47. 21 4 .67 ,160 
43680 0^47.134.83.47,170.83,47, i?\ ( 09B 
4 9688 DHT067 .47,173.83.47.173.83.47. 232 
43696 DHT0222 . 67 . 47 . 1 70 . 70 . 1 77 . 70 . 1 73 . 1 0 
49704 DflTfl70. 1 81 , 70 . 1 83 . 70 . 1 78 , 70 . 1 80 . 1 8 
43712 DfllWa.lBZ, 70. 184.67.84.82.204 .223 
43720 DflTn66.76.203,87.72.212,82,63, 155 
43728 Dfrmi36.67.B3.206.B0.85.21B.71 .44 
43736 DRTP82.206.66.76,213,89,63,204 .53 
43744 0flTfl?3 .82 , 1 33 .66 .82 ,206 , 76 , 84 . 1 86 
43752 DPTft82. 69, 136.71 .82 , 177 . 71 . 82 , 150 
43760 DflTfll 7B , 76 . 84 ,71 .82.206.76.84 . 185 
43768 DflTfl66 .76.213.71 ,82 . 1 79 . 67 . 207 ,41 
43776 DftTfl67. 206. 67. 214 .67.200.72,79 ,60 
43784 DfVm205.67,76,210,82.63.214 .73.38 
49732 DF»TA?0 . 1 38 . 68 .69 . 204 .0 .0 .0 . 225 



KONTRDLSUM FDR QU1CKFIND 64 



100 


77 


105 


66 


110 


20 


115 


231 


120 


132 


125 


55 


130 


120 


135 


26 


140 


179 


145 


228 


150 


110 


155 


147 


160 


209 


165 


243 


170 


36 


175 


255 


180 


183 


185 


83 


130 


201 


135 


247 


200 


227 


205 


223 


210 


137 


215 


4 



220 


157 


225 


32 


230 


84 


235 


62 


43152 


234 


43160 


90 


19168 


239 


49176 


73 


49 184 


74 


43192 


134 


43200 


117 


43208 


23 


43216 


36 


43224 


173 


49232 


224 


43240 


161 


43248 


205 


49256 


80 


43264 


88 


49272 


126 


49280 


73 


43289 


234 


49296 


184 


49304 


97 


43312 


13? 


49320 


147 


49328 


43 


49336 


97 


49344 


82 


49352 


35 


43360 


238 


49368 


33 


49376 


32 


49384 


91 


49392 


90 


43400 


89 


49408 


97 


43416 


243 


49424 


80 


43432 


42 


49440 


73 


49448 


3 


49456 


25 


49464 


68 


43472 


23 


49460 


103 


49488 


22 


4949S 


199 


49504 


157 


43512 


178 


43520 


45 


49528 


87 


49536 


96 


49544 


57 


49552 


14 


49560 


139 


49568 


206 


43576 


213 


43584 


46 


49592 


44 


49600 


63 


49608 


73 


49616 


63 


43624 


99 


43632 


112 


49648 


44 


436^8 


85 


43656 


37 


43664 


66 


43672 


102 


43680 


98 


43688 


52 


19636 


88 


49784 


87 


49712 


89 


43720 


50 


49728 


49 


49736 


50 


49744 


70 


43752 


53 


49760 


61 


49768 


48 


43776 


42 


49784 


56 


49732 


J36 











4* 



TplENDSTlK SPIL 
JBSSl AF BJftRNE JENSEN 



TIL COMMODORE 64 



XXXXXXXXWVXXXXXX**?? 

* TflENPSTIKSFML * 

* TIL C.64 AF * 
x BJflRNE JENSEN * 
xxxxxxxxxxxxxx>*x* xxx 



10 REM 
1 1 REM 

12 REI1 

13 REM 
M REM 

15 REM 

16 REM 

4a FDK.C 53Z80,9;FOKE 53281 .8: FR INT fCLRj 
50 GOSUB 900 

60 PRINT T 2CN3T YFL3T 3SPC][ REUIt 19SPCJ" 
7B PRINT T 3SFCK REUH 3SPC ] TflEfiPS T IKSPJLt 
3SPC3 

80 PRINT f 3SFniRCUH 135PCJ 
30 I =RNDC~TI J: f=20: GOSUB 500 

100 PRINT f Hamr0rN|JBRNJt3SPCJSPlLLE-RE 
Gl.ERi 

110 PRINT t CNJI REDK3SPC]UI SKIFTF.S TIL 
AT 

120 PRINT MSPClTfV 1.2 fLLFR 3 

130 PR INT T 3SPC 1 TRENDS T iKKER . 

140 PRINT I LNJt 3SPC ] PEN PER Tfl'R DEN" 

150 PRINT T 3SPC3S IDSTE HflR TABTf 2CN3 ' 

160 PRINI I YELlt 5SPE 3UIL DU BEGYNPE" 

170 GOSUB INPUT frNltSSPCJ : 0* 

180 GOSUB 300: GOSUB 460 

200 IF LFFTttnt.l )<>'N"THF.N 340 

210 GOSUB 810 

220 PRINT T3SPC]aK - J EG BEGYNOER' 'l GOSUB 
850 

230 GOSUB 810: GOSUB -?60 

Z50 GOSUB 810 

268 P. = T-lriF n=8 THEN 650 

270 IF f*>3 THEN ft=fi-4:G0T0 270 



280 IF fl-B ThCH fl = INTfKNPC0}«3tl) 

230 PRINT r7Sf-T]IEG Tfl ' R ; fl: T=T-p.: G0SUB8 

50 

300 GOSUB 810: GOSUB 460: GOSUB 500 

340 GOSUB 810: IF T=l THEN 700 

360 PRINT T 2SPCJHU0R MANGE Tft'R DU ? :G0 

SUB 850 

370 POKE138.0 

380 GET 04: A-UflLCO* 3 

330 IF I4<1 OR (4>3 THEN 380 

4 00 GOSUB 460 

420 T=T-fl: GOSUB 500 

430 GOTO 250 

460 PRINT THO|13t7CN3 

170 FDR 1=1 TO 15 

480 PRINT' I 22SPC] : NEXT 

430 PRINT rH0MJC13CN] : RETURN 

500 FRINT f HOHUZW 

510 FOR 1^1 TO 10 

5Z0 IF T?20-I THFN f"8 1 NTT ABC 21 3 T BFNH 5/ 
Q3t YELlC4S^irrN] 

530 IF T<=2B-I THEN PRINTTPBC24 3 [5SPEH 
CNJ 

S35 IF M>23 I mO T<2l-I THEN GOSUB 300 
540 NEXT 

5-30 FRINT rH0Pljr2CN3 
560 FOR 1=1 TO 10 

570 IF T>10-[ THFN PRINTTABC323 IBRNKSy 

580 IF r<=30-t THEN PRINrTflB(323 T5SPCK 
CN] 

585 IF H»0-I AND TOl-1 THEN GOSUB 900 

530 NEXT 

600 H = T: PRINT I HQT1JI 13CN3 *- RETURN 

650 PRINT TBRHU 2ro 1 C 0SPC] T I L L YKKE 

660 PRINT r2CNJt8SPCJDU[2SPClUANDT 

670 GOSUB 850: GOTO 750 

700 PRINT TBRHH2CD][8SPC30U - B0U 

710 PRINT C2CN3T0SPC3DU TflBTE 

720 GOSUB 950 

750 GDSUB 610 

760 T=INTrRNDr01*4+l71 

770 PRINT r4CNHVFL3C3SPC3UIL DU PR0UE I 
GCN" 



33 



78B GOSUB 3BB: TNPUT T CN3L 3SPC3 iQiiGOSUB 


16 


113 


40 


32 


58 


70 




60 


11 1 


70 


238 


80 


175 


790 IF LEFi*rn*,13- N THEN SYS 64730 


30 


103 


1 00 


94 


1 10 


0 


8BB GOSUB 160: GOSUB 508: GOTO 160 


120 


113 


1 30 


210 


1 40 


69 


81B FOR 1=1 TO 500: NEXT: RE TURN 


150 


1 13 


160 


221 


170 


171 


8'jB POKE 51Z73 . 20: SU =8: GOTO 918 


180 


199 


200 


234 


218 


70 


^00 FDKC S1Z73 PUKE 51275, 2:POKE 512?6 


220 


H 


230 


199 


250 


70 


.61 i SU - 1 


260 


173 


270 


78 


280 


164 


110 P01<F 5*127'' .61: POKE 51278, 218ipUKE 5*4 


290 


33 


300 


67 


310 


224 


235 .67 


36B 


171 


370 


119 


380 


238 


320 PUKE 5*42^6 ,17: POKE 5*4276,65 


330 


103 


400 


71 


120 


131 


330 |DR NV0 TO 110 STEP 2 


430 


61 


160 


103 


178 


23 


310 POKE 51291 ,N: NEXT 


480 


89 


490 


149 


580 


18 


350 POKL 5127C.64 


510 


18 


520 


17 


530 


37 


170 IF SU = 0 THEN POKE 51273 .0: RETURN 


535 


1 16 


540 


130 


550 


18 


380 POKE 512BB,10B;POKF_ 51Z83 , 1Z8: POKE 5 


560 


18 


570 


15 


580 


35 


^281 ,6*4 


585 


1 14 


590 


130 


6B0 


23 


390 POKE 51285 ,217: POKE 51283,123 


650 


29 


660 


85 


670 


201 


1008 FOR H-UH TO 70 STEP- 2 


7B0 


79 


710 


40 


720 


71 


1010 POKE 51734. N:NCXr 


750 


70 


/60 


58 


770 


147 


I820 POKE 51283 . 128: POKE 51273 ,0: RE TURN 


780 


234 


790 


107 


800 


61 




O 1 O 


707 


O jo 




onri 


j a 1 
zt) I 




910 


1 66 


970 


232 


330 


153 




910 


245 


35B 


85 


970 


252 


KONTR0LSUT1 FOR TflENDST I KSPI L 


980 


195 


990 


71 


1000 


36 


I010 


215 


I 020 


153 







IB 133 11 66 12 46 

13 248 14 193 15 113 




SNAKE HUNT 

INPSENDT flF 
KENNETH JENSEN 
GR0NLANDSUE i I l 
5500 niDDELFflRf 
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0010 

0020 

0030 

0010 

0050 

0060 

0070 

n , e 

0080 

B090 

0100 

BUB 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0210 

0250 

0260 

0270 

0280 

0290 

P300 

0318 

0320 

0330 

B310 



USE system 

text colored, l. 03 

Dill * Qxt % OF 30 

USE sound 

I yd 

USE spr | l«c 

IF spriieirmf 1 ,8)<>1 THEN 

xplode ) 

idonl I fyC 1.13 

spt 1 t eco I or C 1 . 1 3 

spr |t*bacK2,7D 

thousprilafl) 

PROC lost 

WHILE KCY*="" DO NULL 

ENDPROC I is I 



PflGE 

til X -500 

PfiGE 

USE graphics 
araphlcscreenCiJ 
backgroundfl 3; oor dor ( 1 3 
rosier 

penca I or (7 l 

USE Joys I Iclcs 

xl »: -30; x7o: ^270 

yl *i -170i "30 

pt: =2( P 2: 

Pi l: =0; pi 2: -0 



□ ads hap e 



an! nl : -1 
punltt er 



0350 
0360 
0370 
B38B 
0330 
0400 
0110 
0120 
8130 
0410 
0158 
0168 
047B 
0480 
0190 
0500 
0510 
0520 
0530 
B510 
0550 
0560 
0578 
0580 
0590 
0600 
0610 
0620 
0630 
0648 
0650 
0660 
0670 
8688 
0690 
0700 
0710 
0720 
8730 
8740 
0758 
0760 
0770 

0790 
380E 



LOOP 

IF 9«t col or Cxl» ,yl* 3-0 THEN fori 
IF 9»l col or tx2» ,y2«O=0 THEN tor2 

Joyl 
Plol 1 



Joy2 

Plol 2 

llyl 
ENDLOOP 

PROC joyl 

Joys! I ck C 1 ,r I ,k 1 J 
IF rial THEN pW=l 

IF ri=3 then pU =2 

IF rl=5 THEN pi: =3 
IF rl=7 THEN pis =4 
ENDPROC joyl 

PROC piol 1 
pppco I o r ( 6 3 
plot(xl** ( yl») 

ENDPROC plod 

PROC Joy2 

joyst I ckC 2,rK,k2) 

IF r2 = l THEN p2: =1 

IF r2=3 THEN p2: =2 

IF r2=5 THEN p2: =3 

IF r2=? THEN p2:=1 

ENDPROC Joy2 

PROC p I o I 2 

p«nco I o r (53 

Plot tx2*.y2* 3 
ENDPROC Mnl2 

PROC ol 



RR 1 P 

DDI U 




1 590 


punk I 8 r 






0820 


IF *»!«'*I9R TMFN uld' -1 


1600 ENDPROC d0cJ7 






0830 


Fwnppnr 0 t 


1610 








0810 




I 628 










ppnr 1 


1630 








08G0 


y 1 tf . =y I B - 1 


1610 PROC \ I yt 








IF yl*<l THEN yli*:=t9B 


1650 


IF p 1=1 THEN 






1 " 0 □ Q 
conn 


r.NMrKDL n 1 


1 660 


ol 






B.RS0 


1670 


IF 9etcolorCxt«.>*l*+lJ=6 


OR 


Set 


' ■ 1 ■ k 




color CxlP.yltttl )-5 THEN d0dl 






0310 


-in- -v| a-l 


1680 


END IF 






r> q op 


IP — 1 t> /" t TUCK) . t .1 - "J 1 n 


1630 


IF P2 = l THEN 






«1 - - -Vj 


irKiriDDftr . .1 
cNUrKUL <-»! 


1700 


0? 






wJ III 




I7I0 


IF 9 etcaloTCx2".>'2*tl )=6 


OR 


get 


0350 


PROC h 1 


colorCx2«,y2«tn^5 THEN d0d2 






■) JwD 


■ IB- -Ml »T1 


1720 


END IF 








IF xl*»>310 THEN xl«: =1 


1730 








0380 


FNDPRuu h 1 


1710 


IF pi =2 THEN 






W J JD 


1750 


hi 






1 00A 

1 .111 


ppnr #-,7, 


1760 


IF 99UatorCxl*+l ,/l« J=6 


OR 


3 et 


1 0 1 B 


j9hi - u 7h 1 1 


coIot(jcI«+1 ,yl* J=5 THEN d0dl 






I 07P. 


ir . iiiivian r 1 r > ■ „ ■ 1 

Ir y,tP>.rJU IHtN y»t»: =1 


1770 


END IF 






1 w JW 


CNUrKUL q / 


1780 


IF p2=7 THEN 






1 u. 




1730 


h2 






1 050 




1800 


IF 9etcolor(x2*-M ,y2tt)=6 


OR 


get 


1060 


v7b; tv7p - 1 


cot or (x2«tl ,y7o ) = 5 THEN d0dZ 






1 070 


IF v?Bfl THFN v'7b' :11P 
ir f * M v 1 1 net' y*" • - 1 jo 


1810 


ENOIF 






i hrr 

1 ri»«J 


chut n-uL n z 


1920 








1 in jo 




1830 


IF Pl*3 THEN 






1 IPS 




1610 


nl 






1110 


• V ■ ; ~x"Z 0 ~ 1 


1050 


IF 9*»colorCxli",yl»-i )=& 


OR 


get 


1 1 20 


IF ■w7tt'*I THFN v7 u • -Tip 
■ r 3* * ■ 1 1 nui" 3<£i"> -Jio 


colorCxl».yl«-l 3-5 THEN d0dl 






1 130 


FNOPRDC <j2 


1860 


END IF 






I 1 40 
I i to 




1870 


IF p2=3 THEN 






1 150 


PROF h? 


1880 


n2 






1 160 


x2b: -x2Brl 


1830 


IF geUolor Cx2«.y2*-1 5=S 


OR 


get 


1 170 


IF s*7»>31fl THFN *7»: t! 


color 


r.x2it,y2B-l 3-5 THEN d0d2 






1 1 R0 




1300 


END IF 






1 1 30 




1310 








1 £vtO 


ppflp rt Orf 1 


1920 


IF Pl=1 THEN 






1 £ 1 CI 




1930 








1 970 




I31B 


IF gotcolorCxlw-l ,yH«3=6 


OR 


get 


1 230 




colortxlu-l ,y\* )=5 THEN d0dl 






1 210 


not g> f 1 c9' 1 


1950 


END IF 






1 250 


qnt o T 1 0 1 


I960 


IF P2=1 THEN 






1 7fi0 


oil* -n 1 1 -SB 
PI 1- —PI 1 JO 


1370 








1 270 




I38B 


IF getcolprCx2«t-l ,y2«)=6 op 


9 Qt 


1 280 


p nu c« ( 500 ) 


colorCx2«-l .y2»i=5 THEN d0d2 






1 7^0 




1990 


END IF 






1 300 




200B 










X 1 n > -Jfli /!». -l/lo 


2010 


ENDPROC \\y\ 








»7«* -770* w7« • -IR 


2020 


PRDC I yd 








c 1 ?orscr#B r 


2030 


coupdt ypo C l .4 ) 






1 T<10 


n 1 ■ —7 


2010 


sound! ype < 2,3 ) 






1 JJfl 


IQ* £ 


2050 


* o u p d t y p e C 3 , 3 3 






1 . r, i 


U.I 

FDrl 


2060 


adsr(l .0. 15.0.13) 








niaetpriteii j 


2070 


iirft^C3.1 .9.0.6) 








p u f K 1 6" 


2000 


&dsrC2.1 .9.0.6) 






1 i on 


CMnDDnf 1 r» 1 t 


2090 


f llUr(1.0.0.03 






I 400 




2100 


filter! yp«( 1 . 1 .0.0 ) 






1 1 lit 


1 KUL a Ida s. 


7110 


filter | rei(600 ) 






1 -170 


< n r I ( a i» i e ( 1 « 7 kt — 1 w-"7 a + ^ 1 
i i #|ids ( i . * " j ( yx"*3 j 


2120 


I'Qsona-pco ( 11 ) 






1 ? JC 


. ■ i 1 — ■ 1 1 1 1 V I 1 J 


2130 


pul fiO (2,l100 ) 






1 110 


-1 ( o i t ,J ] 


2110 


pul <oC3.1700 ) 






1 4 50 


ii r t o T 1 r T' 1 


2150 


EMDPROC I yd 






1 160 


oat e f 1 01 


2160 








1 4 70] 


o 1 7: =o 1 7— S0 

VIA' — 1* l £ JD 


2170 


PROC tlui 






1 1801 




2100 








1 isn 


pauctt f 500 1 


2190 


IF oll)=l II THEr* 






1 500 


fdr a* -7 rn fi nn n*nca r i pnc\/a i 


2200 


pence I o r (6 ) 






1510 


2210 


lex* i: =" PLAYER 1 OP-NDT 






1 520 


.la; =*3fl: yln; =1 7P 


2220 


ENPIF 






1 530 


x2«: =270; : =3fl 


2230 


IF Pi 2> -t t I THEN 






1 510 




2210 


pence 1 o r (5 ) 






1553 


p2: '1 


2250 


text *: " PLAYER 2 UP.NDT 






1 560 


fori 


2760 


ENPIF 






1570 


for2 


2270 








1503 


hldospr Ho-tl ) 


2280 


c 1 aarscT»ep 
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2230 p| ol t oxl f 10, 100.t exl i J 

Z300 PlolUxH10.60, pi , 1 = +STK*Cp11 

?3IB plottexi (10.18, p| . 2 =>5TKiCol2 

2320 POKE 199.PJ 
2330 9 as t 
2340 END 
2350 

2368 ENPPROC <lul 
237B 

2380 PRDC pausofpaus J 
2330 

2100 FOR pp : - 1 TO pane STEP 8 pO 
*4 I 0 * i I t s r I r oq t RNDf 200 , 1 300 } J 

2420 

2130 ENDFOR pp 

2110 

2150 

2*160 ENDpROC oftuftfr 

2170 

2108 

7190 

2500 

2510 

2520 PROC punk tor 

2530 FOR 99 — 1 TO I DO 

2510 peneolort0) 

2550 p X : -RNDf 60 . 210 ) 

2560 P) ,: ^RN0t6B. 110 ) 

257B plot (px,»»0; plot Cpj-.pytlJ 

2590 ENDFOR 99 

2530 

2600 p«neolor(73 

26 10 

2620 

2630 ENDPROC punkUr 
2610 

2650 FRDC fori 
2660 gMttC2.l] 
2670 buor* 
2680 gat© [2, 01 
2690 pi 1: ip I 1*18 

2700 pencolortS): plot to xt (10,10, blao 
"* tSTRiCpl 1 H ) 
2710 punkior 

2720 IF p I i > =1 1 I THEN slut 

2730 ENDPROC fori 

2710 

2750 PROC for2 
2760 9ale(3,U 



2760 9ate-r3.ll 

2770 Do op 

2780 gat* (3.81 

2790 pi 2: -pi 2+10 

2800 poncolorO) 

7810 ploiU*l(170.10. GRBN= +£TRi( D l23 

+ - j 

2820 punltlar 

2930 IF Pl2>=t il THEN slul 

7810 ENDPROC for2 

2850 

2860 PROC bonp 

2870 FOR H:t30000 TO 10000 STEP 600 D 
0 

2880 «ol (r«jq U «ncyC2.l IJ 
2890 

2300 FNOFOR fl 

29I0 FOR ff: ^10000 ro 30000 STEP -600 
DO 

7320 set f» esu«ncyt2.lf ) 

2330 FNOFOR ff 

231P ENDPROC b«ep 

2950 PROC PPOP 

2360 FDR If: "20000 TO 30000 STEP 600 D 
0 

2970 s*l f requency(3 , f f J 

2380 FNPFOR ff 

7990 FOR I f : =30000 TO 20000 STEP -680 
DO 

3000 cat fr««tuencyC3.f'f J 
3010 

3020 ENDFOR If 

3030 ENDPROC hoop 

3010 PROC . pql or 

3050 loxUtyloC l .1 .0.0) 

3068 ponrol or C2 3 

3078 plot text f50.lfi0. 'Sno-ka Hunt 1 

3090 IqxI si ,-lef 2.1 .8.01 

3090 pftntolqr(6) 

3100 plot toxt C18. 130. Spis piilir-") 

3110 plot t o*t C40, 100. a' 10 points'] 

3120 plot I «x| f10 .70 . Ulndor = 500. 3 

3130 plolU.i (10.30. Crash = -10 ) 

-U18 p I ot I okI C5 .10 . IB tit modsp t L 1»t- 
1 

3150 

3150 last 
3170 

3175 clears: teen 

3180 ENDPROC ro 9 l or 




TEKSTBEHflNPLIHG 

INDSENpr FlF 
TORBEN CHRIS Tf NSFN 
L0GST0RUEJ 150 
9610 NBRAGER 
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00 10 // TEKST 

0020 // el I elrsl behand I Indsp ro9raro_ 

0030 // t C 3 Torbon Chr 1st ensen 1985 
0010 

0050 USE systom 

00B0 TRf>P CSC- 

0070 POKE BSft^'j-S 

0090 PRINT CHRtf 5 ):Ct(Ri( 11 1; CHf?*f8 J 

0090 DIM bir20fl1 OF 00. Ib(881. tk(2B0). 

+ OF 11 

BI00 x:-=l; xi: -xi y:=2; yU --2; sd:=l; st 
art:-0; slut:^fi; e$: ^ ; ch : =0 

01 10 FDR I : -1 TO 200 DO 
0120 b*(l ): - 



0130 I k C I ): -0 

0118 ENDFOR I 

8150 tebtst 

0160 PROC t ok st 
0170 PAGE 

0190 PRINT ftj 21.1: CHRU18J; Toks4 

0190 PRINT ftT l.l: CHRM183; Skaormt 

Koionno: Raokke: 

0200 ajour 

0210 PRINT f**T 2,1: 

0220 FOR I : -1991 TO 2021 DO 
0230 POKE I .173 

0710 ENDFOR I 

0250 REPEAT 
0260 njou- 
0270 r|»«c(f 

0280 PRINT nr y.x: leant 

0290 ajour 
0380 x: =xtl{ xl: "xl-rl 

0318 blank 

8320 IF a*=CHRitl3) THEN 

0330 ri-riM ^H«yttlj 

0310 IF sd=2 THEN 

8358 id:=l 



36 



0360 s Idosk I ft 

B37B END IF 

8380 EL IF «*=CHRlt28 3 THEN 

033a x: *-x-2: xl:*xt-2 

0100 IF lktyl-l 3>0 THEM 

0410 IF xULEN[bityl-l )) THEN 

0120 b*Cyt-l 3: ^b^Cyl-l 3(1: xl-1 

3rbiCyl~l Uxi-M:LENtbiCyl-i 333 

0130 ELSE 

0110 DlCyl-l): sbKyl-l D(l:xJ-l 

ifo i 

0158 ENDtF 

8160 IkCyl-l 3: =UCyl-i )-l 

B17B END IF 

0100 EL IF a*=CHRiC157) THEN 

8130 x: --x-2; xl: =xl-2 

0580 EL IF a»=CHR*tH53 THEN 

0518 yi^Y-M yl:-yl-l; xi=x-l; xl: 

0520 ELIF ft4=LHR*U73 THEN 

8530 /;-ytl; xi^x-li yls-yll-li xli 

-xi-1 

B510 ELIF n*=CHR*fl9) THEN 

0550 x:-l; xU-x; yl : *y l-Cy-2 3; y: 

^7 

0568 ELIF n*^CHR*fll8» THEN 

B*j78 IF xKLENCbSCyl-U) THEN 

8580 oM 3: -bit yl-1 3t l!xl-2 3+ 

Kxl-l:LENCb»Cyl-l 3 33 

8530 ELSE 

0608 FNDIF 

8618 x: ^x-l ; xi ; -xl-1 

8520 ELIF i\i-CHRif32 3 THEN 

8630 TF xl>LENCb*Tyl-l 33 THEN 

0618 ctf yl-t 3; -t%tyl-l 3t 

0658 ELSE 

8668 hiTyl-1 3: ^bttyl-nCl:xl-2)+ 

+biCyl-Uf xl :uFNChi(yl-l 3 3 )+' 

0678 llrCyl-l ): )-l 

0688 ENI'ir 

8638 EL EF «i=CHRi(l36 3 THEN 

8708 x: ~\ ; xl : = l*-t Csd - 1 3x18 3 

87 18 ELIF ftt-CHRt(t35) THFN 

8720 *:-l: y:^ + l) r.U*rtHl *** *| 

»(Csd-l 3*10] 

8730 EHF a*-CHR*(23 3 THEN 

8718 ELIF n*=CHR*fl33 1 THEN 

8750 tabulator 

0760 ELIF ni-CHR*(l313 THEM 

B??B flyt't II 'tab 

0780 ELIF E^C-I THEN 

0730 Icodo 

0800 ELSE 

0910 IF I FNCbSf yl -l ) 3~l THEN bi(yl 

-I 3r *" " 

0820 IT xl-91 THEN 

0B3B nlank 

B81G btf yl-1 J: ^bttyl-1 3lll/'9 3+a* 

0858 f L IF xl>LENCb4(yl-l 33 THEN 

0068 Difyi-1 3: =b4(yl-l )+o» 

8878 ELSr 

8B88 uityl-i 3: Tb*f vl-l 3Cl:xl-2)t 
»ttb4Cyl-i 3(xl:i-EN(b*(yl-l 333 

0838 ENMIF 

B30B U fyl-l 3: =lle(yl-l 3*1 

0318 * END IF 

0320 UNTIL n*=CHR*Cl?3 3 

8338 ENDPRflC tokst 

8318 FUNC t*ai.t 

8350 ni: -|nk«»y4 

8368 RETURN f*t 

8378 ENDFUNC I egnt 

8388 FUNC Ia 3 n7t 

8338 t *: = Inlceyt 

1088 IF I t=CHRK2B 3 THEN H:t" " 

1018 RETURN 11 

1028 ENDFUNC t«9n2* 

1038 FUNC fr I 

1010 RETURN fr«o 



1050 ENDFUNC I r I 
1060 PRDC AjDUr 

107B PRINT AT 21.1: CHRifl8 3: T*ksl 

1080 PRINT AT l ,9i CHR4M83; 

JB98 PRINT Of l.9r CHRKlBlicd 

1100 PR I N T (VT 1.21: CHR4-C18 3; 

1110 PRINT PT I,24i CHRlClQJJxi 

1128 FRINT nl 1.3?: CHR*C183i 

1130 PRINT nr 1,3?: CHRtC 18 3; yl-I 

1 118 ENDPROC njoi.r 

I 158 PRDC chork 

I 160 IF ?e>10 THEN ny's Ido 

I 178 IF x<l THCN 9»fnn»ol '« Ido 

1 188 IF y<2 THEN rul 'op 

1138 IF y>2"3 THEN rul'p*d 

120B IF tkCy1-l)<B THEN tk(yl-l)i-0 

1210 IF frt<108 THEN pod'slop 

1220 ENDPROC rhock 

1230 PRDC s ideik I ft 

1218 PpGE 

1258 PRINT nr 1,1: CHR*C18): Skaormt 

- - i Raokkor 
1260 PRINT Or 21. li CHR*(181) ToKii 

1270 ajDur 

1280 PRINT ftT 2,1: 

1290 tab ' 1 m lo 

1300 FDR I : "2 TO 23 DD 

1318 IF fid ^1 THEN 

1320 IF LEN(bttl-ltfyl-y333>B THEN 

1338 IF LENCb*Cl-H-fyl-y 3 3 3 >10 T 
HLN 

1310 PRINT P-T I .1: b*Cl-l+Cyl- 

y 3 3(1: LENCbiCl -UCW-y 3 H 1 : 10 ) 31 ,CHR*t 11 

5 3 

1350 list 

1360 PRINT P.T I ,t: b*CI-lfCyl- 
, 3 3C1 JLENCbin - 1 +(y l-y 3 1 3 1 ,CHR*( 1 15 3 

1370 INDIF 

1380 END IF 

1398 else 

1100 IF LE.NCb*tl-ltCyl-y3l3>10 THE 

N 

1110 PRINT AT 1,1: bt(l -l+Cyt-y3 

H1l:LEN(bitl -H-tyI-y3 33).CHRi(l15) 

1120 FNDIF 

1130 fc r NDIF 

1118 FNDFOR I 

1150 ENDPROC i idesk I f i 

1160 PROC n/'sido 

1170 IF *d^7 THEN 

1180 x:-l; *d:=l; yf*#+ti ytt=ylti) 

xl : ~x 

H30 « id««V I fi 

I500 FL IF cdM THEN 

1510 «<Jt x: >l: -41 

1520 sl.la^k I H 

1530 ELSE 

1510 STOP 

1550 FNL'IF 

1560 ENDPRDr n/'«ido 

1570 PRDC 3«iT.mol 'c id* 

I5B0 IF sd -1 THEN 

1590 aci sd:-2; xl:-=BBi y. =y-U y 

U =yl-l 

1680 * |d ask i M 

1610 ELIF cil -2 THEN 

1620 *d: -I ; x: ~10; xl : -x 

1630 <c Idosk I f 1 

161-0 ELSE 

I 650 STOP 

1660 END II- 

1670 ENDPROC gnmmol '*ld* 

1698 PROC blank 

1638 IT tktyl-l3=8 THEN 

1780 FOR l:-l TO xl-1 DO 

1718 n*fyl-l 3: -biCyl-I J*" " 

1720 ENDI OR I 
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!73B endif 

1740 IF LEN(olCyl-l 3K=xl THEN 

1750 FOP I : -LENCbifyl-MJ TO xl-L DO 

1760 ^ -11 J; -blCyl-1 )r" • 

1770 ENPFOR l 

1790 ENDIF 

1730 ENDPROC blank 

1800 FRDC tabulator 

1810 *:=19B1 

1020 POKE i.l 70 

1830 REPrrVT 

1810 14: -KEYi 

1850 IF li-CHRifZ9) THEN 

1068 z : -zt 1 

1970 IF z>2023 AND *d=l THEM 

I860 z: -19S5I *d: =2 

1830 tldesklft 

1308 f| IF z>2023 AND *d=2 THEN 

1910 *:-1985; «d:=l 

1320 ■ UkiiM 

1330 FNUIF 

1310 POKE. <,170 

1350 IF ibC«-l993tCtsd-l J*1BJ-L J<> 

1 then POKE «-l ,173 

I960 FL IF t4=CHR*(17 1 THEN 

1370 a:-z-\ 

1900 IF z<1991 AND td =2 THEN 

1330 ii "-2022: «d:M 

2800 « (desk I ft 

2B10 ELIF z<!984 WO sd^l THEN 

2020 / : -=7022; s d : -2 

7030 Odasklft 

7810 f'NTI IF 

70 r 30 POKr z.l?0 

7060 IF thfz-1983+Cfsd -1 )*10]+l ]<> 

1 THEN POKE zH .173 

2870 FLIF I4=CHR*(13) THEN 

?080 lbrz~1993+f Ud-1 J»1B )}: -1 

2090 FLIF I4=CHRS(32) THEN 

2 100 lbf7 -1993*Cfcd-l 3*10 ) ): ■-,) 

2L10 ELSf 

2I20 ENPIF 

2130 UHTIL t 4CHR4C131 } 

2L1B x:tx-i: xl:-xl-l 

2150 IF tb[z-1993tCCsd-l )xl0 1K>1 THEN 

POKE z, 173 

2160 ENDPROC tabulator 

2170 PROC flyt 'tn 'tab 

2180 h: --x-1 

7190 FOR t : -xKC«d -13x101 TO 80 DO 

2200 |F tbfll-l THEN ti : - 1 ; t i =80 

2710 FNDFDR I 

2220 xi -h ; xl; -|i 

2230 IF x>18 A HP «d=i THEN 

2210 *d: =7 

2250 sidecklft 

2260 k: t^-IB 

2270 EL IF x>40 fiND td(>l THEN 

2280 x: Tx-IR 

2790 END IF 

2300 ENDPROC My* Mil" tab 

2318 PROC rut 'nod 

2320 IF yl>2HB THEN 

2330 ylt yl-l; y. -/-i 

7310 c idtttU-t M 

2350 RETURN 

7360 ELSF 

2370 /: ~y I 

7390 < irio^k I ft 

2398 ENDIF 

2100 ENDPROC tut 'nod 

2110 PROC rul 'op 

2420 IF yl=y THEN 

2130 y. -y ti; yl: -y\*\ 

2110 RETURN 

7150 ELSE 

2460 y', -.ytl 

2470 cldoskift 



2490 TNDIF 

2490 ENDPROC rul 'op 

2500 PROC kode 

25 10 WHILE NOT fOD DO 

2520 READ zxi 

2530 PRINT zxi. 

2510 ENOWIULE 

2550 RESTORE 

2568 l/d: 

2570 PRINT AT 21 . 1 : CHR1U8J8 Esc-kodo 

? ; I «9n2* . 

2590 qzI: ~.\ 4 

2598 IF t t IN • aA" THEN 

2608 afslut 

2610 FLIF 14 IN 'hHmfl THEN 

2620 hen I 

2630 ELIF t 4 IN pP THEN 

2618 pr inter 

2650 ELIF !i IH "IT" THEN 

2660 lop'lekst 

2670 ELIF I 4 IN "bB ' THEN 

2690 ound'tekst 

2698 ELIF t4 IN »F THEN 

2700 flnd'-toksl 

2710 ELIF 14 IN <S THEN 

Z72B k\* I I akst 

7730 I. LIT |4 IN \ \ THEN 

2718 lnd«aet 'I into 

2750 (LJF t 4 IN THEN 

2758 <rl «t ' I in |a 

2778 ELIF !4 IN dD> THEN 

2790 d|f«r| 0 ry 

7798 FLIF It- n THEN 

7800 hi nU • 4 unlet Ion 

2810 [LIF t4^CHR4tl7 1 THEN 

2870 lo rr 'c Ida 

2838 EL IF I4-CHR4C29) THEN 

2810 nao« lo'slde 

2858 FLIF t4=(/HR4(13) THEN 

2868 «: tde?V i ft 

2878 x: -x |; *1: - x l-l 

7098 KtTUKN 

7898 f LSI 

2908 tio tU Ud 

23I0 FNDIF 

2320 END PRO L irodo 

2930 PROC afclut 

2910 (porgtmal 

2950 IF it IN nN THEN 

2960 x; -x-i; xl: =xl-l 

2370 tlffotUiU 

2980 Kt TURN 

2990 END IF 

3000 REPlflT 

3010 rffJNT AT 2«, i; CHRSUS); Skal t 

akstop 9otnm»s fjynO? M e gn?4 ; CHR4C 115 J 

3020 UNTIL I* IN JJnN' 

3030 IF (4 IN nN- THEN GOTO *pr 9 * 

3010 PriGF 

3050 FOR I : -1 TO 200 DO 

3060 IF tkf I )>B THEN start : i( i t : =20 

% 

3070 ENDFDR I 

3080 mdlasl : 

3090 IF si art >0 THEN 

3100 REPEAT 

3110 TNHUT flT 2,1.14: Indtost til 

nawn : : 1 1 1 4 

3120 UNTIL LENCM 14)>0 

3130 END IF 

3140 PAGE 

3150 PRINT AT 2,1: Tftfcston gommec , 

3160 FOR I : =700 TO start STEP -i DO 

3178 IF tkCt 3>0 THEN slut : -| ; l 1 =sia 
ri 

3180 ENDFrJR I 

3190 TRAP 

1200 OPIN FILE I. lilt. WRITE 



3210 


HflNpLfR 


J.3 IJID 


w • ~< ( x 1 ■ ^ i* 3 — 1 


3220 


pr in r 


1 qui 


1 laotic I r I 


3230 


pr in r 


33eKI 


Dl 1 ■ 1 u "1 


3240 


PR I ti r F I i o n ' I nde s. ei( Laredo f" 


" 1 'K' 


1 Ml 1 . 1 

1 Ml 1 1 • 


3250 


GOTO mdlast 


100Q 


pficvr 


3260 


ENpTRftP 


"I IrJ 1 to 


fdk 1 • -70c* rn 1 crrp -1 nn 


3270 


FOR I: -start TO slu-t DO 


1B'7P 
t ' ■ 


rr iLfi i>0 Turw c 1 it 1 • - 1 ■ 11—1 


3200 


IF t IrCl D>0 THEN 


1030 


F NOT OR 1 


3230 


UR1TE FILE 1 1 i .bifl 1 nil 1 


40in 
** Kim 


IF c 1 11 1 - t AND i Is ' "t-n i ! ir *■■ 


3300 


END IF 


<10SP 




3310 


ENDFOR 1 


' WWII 


: 1 ,1 r - •■ « 1 it 
» 1 U r > * 1 1 1 


3320 


Close 


1070 


RF I liRN 


3330 


S p r gs : 


108Pt 


ENDIF 


3310 


t 1 do s k 1 1 1 




PRINT PT 2.1. Tekstcp udtkr |y»s 1 


3350 


REPEAT 




3360 


PRINT AT 21-, 1: CHRtClSJl Uidore 


4 100 


OPFN FILF 1 id: URITF 


mod 


donne 1 9 k s t ( 1/Ti )7 ; 1 09n7* FHRtfllS 


fl 1 1 0 
• 1 1 c 


for 1 • - 1 to c 1 11 1 nn 


1 




1120 


IF LENfbtC* 3 J=10 THEN b*(l 1: =b» 


3370 


UNTJL t $ IN " JJnN 


fl 2111403 


3390 


IF I* IN "nN" THEN 


41 30 


PRINT FILE 1 : b*Ct ) 


3390 


PHGE 


1110 


ENDFOR I 


3100 


FNtl TFK^T atclnllof 1 


1150 


FOR l:-l TO 1 00 PRINT FILE ll CH 


3110 


f LSF 


R*f 131 


3120 


x ; *x— 1; Ml'! ~xl — 1 


1 1 6B 


*: -a 1 ; x 1 : ->1-1 


3130 


c 1 do ck i 1 1 

i ■* » »v ■ 1 | 


11 70 


Cl.DSt 


3110 


RC TURN 


■l 1 80 


« I-Jpsl/ 1 ( t 


3150 


F Nil II" 


A 1 90 


111"' 1 1 Mill 


31B0 


ENUPRUC n f * 1 ul 


1200 


EHOPROI prinlftr 


31,?0 


PROC 1 Ah ' I n u 


1*1.-1 


PROC lop 'takst 


3180 


rOR I : ^1301 TO 2623 PO 


^1 1 1 r> 


-k'.-M y. -2; yl:-2; xl: -=x 


3190 


II" t b fl - 19B3t f fsd - I i*4flH-i tuf 


*t *: Jo 


•! 1 d" 0 V | f | 


M 




**1 210 


fc NOPRtH | op 1 oWitt 


3500 


f'OKF i 170 


• t JW 


rptut 0 .1 n u 1 0 k 1 1 


35 10 


ti SE 




KOR 1 . "200 TO 1 STtP -1 00 


3520 


I'OKt 1 ,173 


•i?7n 


Ir 1 K U l/a 1 HtN 


3530 


rnn if 


<1 1 

** £ OKi 


yl. -l-r2; y. ^23; 


3510 


FNQFOR 1 


■ * — Q 


3550 


FNIlPRlir 1 fih ' t In la 




C Ml 1 1 C 


15R0 


pprir i, .. 1 
rP>ui_ hp u 1 


1 1 WO 


r ■ ' 1 ■ r 1 


3570 






t 1 cj e < Ir 1 11 


3580 


C ft rt 1 n f m a 1 
• P"' "J > l"1 1 


^ J <c ri 




3590 


if 1 1 r n pn ruFN 
1 r ' » in in 1 nt_n 




PPTlf* Iba IJa ■ ^ _. 

rRUi. f r> r r 1 ge ^ Id? 


3600 


c 1 c 1 n c Lr i It 


r i J'l a 


IF yl >23 THtN 


3610 


* < 0 ll XI) "All 


1350 


X. I, f.~£* yn -y\-£i, ri I , ~jt 


3620 




» JOfl 


fi Qr 


3630 


e mi n 

k i«j 1 1 






3610 




1380 


END IF 


3650 


IF u/t IN liM ! 1 -j;" 'j 




s itJo^k t 1 1 


3660 


pr 1 n r 


1100 


ENDPROF lofrlqe'sldo 


3670 


PRINT [ 1 1, ■ n 1 ■ | pn i ll. 1" 


111R 


PROC noesto ide 


3680 


FOR 1 : ;l Tfl ?rr nn 


1120 


IF yl<178 THFN 


3630 


11 * l l J • - ■ . l . 1 ; . -1(9 


1130 


x: -1; y: t2; yl : ^yit22; >I: t x 


3700 


Ci-ilii 'OR 1 


1110 


else 


37I0 


PflLf- 


1150 


*. x-l; xl:?xl-ii yr =2; yi:=i79 


3720 


FNn 11 


H6B 


ENOIF 


3730 


1 fly 1 a* 1 


1170 


'.:!■". :L | ft 


3710 


RFPFf»r 


1180 


ENOPROF naofilo'tida 


3750 


1 ni u 1 mi £ , 1 . 1 1 • infl! as 1 (lino 


1190 


PROC Und'lclrsl 


•JO l 


lilt 


1500 




•J 'Utl 




1510 


TF li IN nN then 


3770 


trap 


1520 


x; K-l; xl; 


3780 


I II- I lli r | I 7 I ; 1 ; Dpl-lCI 


1530 


« Idesk 1 11 


3 790 


HnNI U 1 :J 


1510 


RETURN 


3800 


PI? ■ KIT 
ri\ 1 n 1 


1350 


END IF 


3810 


PRINT 


1560 


PAGE 


3820 


P P I N I F 1 1 n n i 1 A _ — 1 1. 1. - •'<! 


1570 


INPUT fit 2,1: Anglo «oget«lr£t: ' 


3830 


f I l t : - 


ur 4 




3810 


GOTO 1 ndl as t 


1580 


pflcr 


3850 


FNDTRflP 


1590 


PRINT -it 2,1: o op » 9 ( gjQbl ikl* 


3860 


w "ii-t nui cur 1 1 j uu 


1600 


FOR 1 ; ^yl TO 200 DO 


3870 


RFAQ FllF 1 1 1 h*fi 1 i[#fi ^ 


1610 


IF ur* IN b*(l ) THEN 


3880 


Fnowhti F 


162B 


y: -2; yl:-|tl; 1 : -200; c|>:=l 


3838 


V ! — w — 1 ■ — u 1 1 


1630 


ENOIF 


3908 


i 1 Haelr 1 11 
■ 1 «J w * K 1 II 


1610 


ENOFOR 1 


3*310 


CLOSF 


1650 


IF rU-l THEN 


3320 


C NOP ROT. hwpl 


1660 


FOR |!"t TD LFN(bt[yl-UJ DO 


3330 


PROC n r ifi t or 


1670 


H biCyl-1 HI :| tLEM I u r * J- l)= u 


3910 


fipor qtpiBl 


r* THEN 


3358 


If 1 \ IN «N THEN 


1680 

-I 


=t.J t : ^LEN(btfyl-l)li jd ; 
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1630 I'NUIF 
1700 CNU* OR I 

1710 cti: 0 

^720 rise 

1730 . l; xl:-jcl-l 

1710 ENPIr" 

1750 IF *>1B THEN 

1760 *: -x-18 

1770 IF «d -l THEN 

1790 

1730 EL^r 

1808 *rj : * I 

1810 CNDU' 

1820 FHDIF 

1838 « idacU i U 

1810 FNPPRL'f 1 md " I ©kst 

4830 PRIjr 'I'orqcmai 

1 860 HI | ft 1 1 

1870 IK I NT fiT 21.1: CI»R*fl81: Ef du 

sikker ri.i.i? :lQ9n2*,CHR*ll1 l 5) 

1880 UWMt * * IN I li'H 

183P PNUr'^K <=p/>r9*fh&l 

19R0 PRUE * i ot 'telrtt 

1910 <co, n«mftl 

43'20 II n IN "N" rncis 

193B .: k-t; xti -J<l-i 

1310 « idncU t I I 

4350 Rl !URN 

4368 PNUir 

*»97B Ffi'.l 

^388 RFIi r>T 

4398 THPUI OT Z.l: "Ft a llnio? " : fr 
a 

5008 UN' 1 1 lm>0 AND lrn<200 

5SUB RQ I' ill 

5020 1 IIP' IT AT 3.1: T|i li n |»?": t| 
I 

5038 UNIK r U >fra AND Ml *2B0 

5018 TUK I -Iroi TO I I I 00 

5858 nil! )•* * * 1 UCi ^0 

5068 ENPFUK I 

5070 *; =*- IS jets -=xl-i 

*n0BB cidsclciM 

'3038 FNDPRC' %iot M*kO 

5100 PROC hlit 1 funk! Ion 

51 10 *po i gemal 

51?* U 14 IN r.N THEN 

5130 *: -x-lj xl: -xl I 

5140 < irln«lf | H 

5150 Rf I URN 

5160 END IT 

5i 78 RFrrni 

5lfil* PK I N f ft! 21.1: CltfiiflS); Kopler 

i yl blok Ck )7":to9n2t 
5130 UNTIL t I IN "IfKIF" 
5208 IF t 4 IN ~kK" THEN 
5210 PAGF 

5220 PRINT OT l.l: "Blokken J«r skat I 
l yi t •«: " 
5230 REPEAT 

5218 INPUT OT 2. 1: 'Fn» M n I *> : " : fr 

5250 UNTIL fr«>8 FIND fra<280 

526B REPEAT 

5270 INPUT AT 3. i: "T|i llnio: I I 

I 

5280 UNT IL t I Olra AND I I I <200 

5230 PAGE 

5380 PRINT OT l.l: "Hwor den skal M yl 

I e s hen- 

53 IB REPEAT 

5320 INPUT AT 2,1: "Fra I I n I a : "3 Ir 

b2 

5330 UNTIL Irn2>0 AND fra2<208 

5310 til2:-lr«2*flli-fraj 

5358 IF til Z>2BB THEN t I I Z: --Z00 

5360 PRINT fiT 3.1: 'Til I I n I a : " . I I * 2 

5370 FDR I I -.Ir*2 TO I I I 2 DO 



5380 DiH 1 '• -biClra*Cl-lra231 

5390 ENOrOR I 

5100 xt*x-t* xl:-xl-l 

5110 s (desk | ft 

5120 ELSE 

513B PAGE 

5110 PRINT fiT l.l: fc Bl okkQP dor skat * 
i yH«s: " 

5158 REPEfit 

5160 INPUT fiT 2,1: "Fra Mnle: "l fr 

A 

5170 UNTIL lra>0flND fra<200 

5190 REPFfiT 

5498 INPUT fiT 3,1: "Til lin|o> " I tl 
1 

5500 UNTIL Mi>fra fiND M i <200 

5510 Pft&C 

5520 PRINT ru l.l: "M yo r den *kal flyi 
I es h e n = " 

5530 REPEAT 

5510 INPUT AT 2,1: "Fra Itnle: fr 
a.2 

5550 UNTIL Ira2>8 fiND fra2<208 

5560 i rlZl -fraZ+Ct i i -fra) 

5570 PRINT FIT 3.1: "T 1 1 t I n r 9 : ".I 112 

55B0 IF fra>tr»2 THEN 

5530 FOR 1 - - f r a2 TO t I I 2 

5600 o*Ci ): :b*(ttf fra-*ra2D); tkCt 

): =lkCt+rfra-Fr«Z)l 

5610 ENDFOR I 

5628 FOR l:^Fra TO 2B0-C I I ( - f ra )-l D 
0 

563B b*r I 1: -b*r;i ttl I l-fra 3*1 )s t k C 
i J:^lkCt*f1 H-lrnHi j 

5610 FNDFOR I 

5650 FDR I : -200-f \ I l-lra) TO 203 DO 

5668 b*Ti J: IkCl ); ^0 

5670 ENDFOR I 

568B FL5F 

5630 FOR i : - 1 r a2 TO t I I 2 DO 

570B btll ): -.b*Cfra*f l-fra2 )): IkCl 

1: =1 kClra+f I -<r B 2J1 

5710 ENDFOR I 

5720 FDR 1 " -Ira TO t r a2-( I M - 1 r a )-l 
00 

5730 bt-Cl ):-b*n*£t Il-ira)+i3r lk( 

L J: =lkCl+t! M -fra Jf 1 J 

5710 ENDFOR I 

5750 FDR r: TQ fra2-l DO 

5760 Ditr lk(r};--0 

5770 ENDFOR r 

5790 FNDTF 

5790 x: -x-l : xl:^ti-l 

5800 « Ideclr I H 

58IB END IF 

5820 ENDPROC" biok'funlrl Ion 

5830 PRDC ind<?vM M infc 

581B spo rgsmftl 

5850 IF It IN "nN" THEN 

5860 *:-x-i; xl:^xi-l 

5870 c I desk | M 

5880 RETURN 

5990 END IF 

5900 PAGE 

5910 REPEAT 

5920 INPUT fiT 2,1: "Honun 1 in !• ma 
nalor: ": mllnle 

5930 UNTIL ml t n I e >8 ONP ml in le <200 

5940 FOR I : -200 TO ml in ie STEP -t DO 

5950 t>if i ): ^o*(l-l ): l k C i 1: = t k C I -I 3 

5360 ENDFOR I 

597B bttml ml* >r****| I k Cml I n I e 3: -0 

5380 x: -x-l; *l;--xl-l 

599B ? idesk I It 

6000 ENDPROC ind«ael ' I in I* 

6010 PROC slet ' L in l» 

6020 spargsm*! 

603B IF 14 IN "nN M THEN 
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6040 x: - x -t; kI: ^1-1 

6050 i I de «k | f I 

6060 RETURN 
6070 ENDIF 
608B PAGE 
6030 REPEAT 

6100 INPUT AT 2,1: "Huilk»n II 

Ol si a I I as : ": - i 
6J10 UNTIL sl>0 AND <I<200 
61 20 for ( ; ~s t TO 133 DO 
6130 b*n l; -biCl +1 ); t k ( 1 ): \ k C I rl J 

61 10 ENPFQR 1 

6150 d*( 280 1:=" m ; lk(20Bl:=B 
616e X.---X-]; Kl = 
6170 vidasklft 
6180 ENPPRGC ?iQt I In I « 
6190 PROC dlrerlory 
6200 Pfl&r 
DIP 
PRINT 
REPEAT 

PRINT (If 24.1: "Tatt 'rat^n'"! 



6210 
6220 
6230 
6210 

I «9f»2t 

6250 
6260 
6270 



UNTIL l4=CHRtCI3) 
x: xt: -xl-1 
s Ideck | f I 
6280 FNDPROC directory 
6290 PROC nod Mop 

6300 PRINT AT 21,1; CHRlfl8);" FDR 

LlDT LflGCR - TPKST GEMMES" .CHRtt 115 1 

6310 FDR I : -| TO 7000 DO 

6320 ENDFOR I 

6325 s idetlr I I t 

6330 nf s I ut 

6310 FNDPROC nod ' slop 

63=10 PROC dntA'«aQ| 

6360 DATA " 



6300 


DATA 




6350 


OATfl 


" A = fifsl ul . 


61BB 
i ny 
6410 


DATA 
OA TA 


" H = Si a i ga-mmel lekst, han 
M = Hani ny laksl , 


6120 


DATA 


P ' Prlnl ar-udskr | f i . 


B430 


DATA 


~ F r Find do I tales! . 


6440 


DATA 


T = Top I aks t . 


6450 


DATA 


" B - Bund laksl . 


6460 


DATA 


" S = Slel 1 akst . 
■ 


6470 


DATA 


I - Cndeaet 1 in lo . 


6480 


DATA 


" Q = Slal I 1 n la . 

HI' 


6490 


DATA 


" D = Dl«k-kni al , 


6500 


DATA 


if = 0iok-(unk* ioo'- 


6510 


DATA 


1 CRSRfi ' - Forrlqa i ido . 


6520 


DA ' A 


" ' CRSRD' - Nae«1 a s |d« , 


6530 


DATA 


" 'RETURN' = In 9 onl ip 9 . 


65^0 


DATA 


ii 


6550 


ENDPROC 


daf a' «aot 



6370 OATrt "ESC-KOOER: 



/gh ^ R rt WIMBLEDON 

inpsbct flF 

li&iSSm MORTEN FREDERIKSEN 
'VSQlB hdulinen 10 

85B6 BRUfl DJURS 

• Til Vic 20 + 16 k 



1 REfl WIP1BLFD0N 



7 REM 



AF 



3 REfl 

i RF.n t GRHinoRrrNi blui 

5 REfl r RED IFRFHER IKSENT 0LU] 

6 Rf.n 

3 POKF-4 4 .33: POKE 3*184 , 0: **OKr 1 98 . 5: P0KE63 1 
.78: F0kE632.69:l'UKE63.1.g7;P0KE634.l3;P0K 
E635-.131 

READY. 



0 PRINT rCLRJf Zi.NneCHJWAIT. . :P0KE3697 
8 P0KE36873.2 r t 

1 B$-- TCLR3IfNl'iS5^5rS/-l[S/TjSSr 2C/0ICC 

v. jsssssssssss^ssr tv*it s/spc u C/-kjt c/i j 
rc/rnc^Gitc/nit < ✓ahs/^kc/nhcnj 

18 FORA =5128 Tt>'>/V1: READB; POKEA.B: NEXT 
1 3 FORp =55@4TQ-ibtf3: READQi PQKEfl .Bl NEXT 

20 F0RA=564Br0S375:READB:P0KEA.B: NEXT 

21 DATA1 ,1 ,1,1. 1.1. 1.1. 2. 2.2,2,2,2,2.2 ,4 
-4 .4 .4.**. 4 .4 .4 .8.8.8 .8.B.8 ,8.8, 16,16.16 . 

ie.ie 



25 DATA 1 6 . 16,16, 32 , 32 . 32 . 32 , 32 , 32 ,32 ,32 , 
61 ,64 .61 .84 .64 .04 .64 .64 . 1 20 , I 28 , 1 29 , 1 28 , 
128 ,129 

28 FJATfU28.128 

23 DATA 255,255 255.170.85. 

1 70. 85. 1 70. 95, 170. 31. 16. 16. 16. 16. 16, 16,1 
6 

33 DATA213.9.8.9 ,3.8,8.8,8,8,8.9.8,9,8,1 

5. 16. 16. 16. 16. 16. 16 ,16.240 1.1,1.., 

, . .128 

61 DATA 1 28 ,128,1 .1,1 128 .128. 128, T ) 



1 18 FORA 

130 FORA 
150 FORA 
i6B FORA 
170 FORA 
180 FORA 
182 FORA 
184 FORA 
186 FORA 
188 FORA 
138 FORA 
192 FORA 

131 FORA 

196 FORA 

197 FDRA 

198 FORA 



199 FORA 
201 FORA 
0 FORA 
FORA 
220 FORA 
225 FORA 
250 FORA 



2 

21 1 



=6000 TOG 187: 
-6920Trj7006: 
-B50BTU6575: 
=6600 T06732: 
=6740106932: 
= 7200 T07332: 
=731BT0?338: 
=7400TO74J2: 
=?500TO2'355: 
=7560TU ?688: 
=7700107758; 
:7768T07838: 
=?810TD?917: 
=7920TO8018: 
S802BTD8086: 
=809BTD8 172; 
s8175T08288; 
=9300 T08 363; 
=8475T08588; 
=8600TO8663: 
=B70aro87'52: 
=B760TO8815: 
=88Z8r0B864: 



READB 
READB 
RFHOB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READB 
READS 
READB 
READB 
READB 
RFADB 



: P0KEA.8: 
: POKEA.B; 
: POKEA.B: 
: POKEA.B: 
:POKEA,0: 
: POKE A . B: 
: POKEA.B: 
: POKEA.B: 
i FOKEA.0: 
: PDKEA .B: 
: POKEA.B; 
: POKEA.B: 
: POKEA.B: 
: POKEA.B: 
iPOKEA.Bi 
: POKEA . B: 
i POKEA.B: 
: POKEA.B- 
i POKEA.B: 
: POKEA.B: 
: POKEA.B: 
: POKEA.B: 
: POKEA.B: 



NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 



251 FDRA=S86SrO8-3^:RCflDB;P0KEfl.B:NE«T 
255 FORA-8968TO C )071 : REAPB: POKE ft . B : NEXT 
260 FORA =9085 TCH 1 76; REAQB: POKEA .8: NEXT 
270 FORn-91 8010*3221 : READS: POKEA ,B; NEXT 
325 FORA =7 1 68 1 U ? 1 92: POKEA ,13: NEXT 

350 DnTfl0.126.6B. 56. 70, 70. 70. 126 

351 DATA, 8, 8, B. 24 .24.24.24.0.126.66.2.2. 
126,96.126. .124, 68.^ .62,6,70,126 

352 DATA. 68. 68. 100. 1 00, L 26. 12, 12. ,126,64 
, 126 ,6,6,78,126 ,. 126 ,66 ,64 . 126 ,70 ,70,126 

353 DATA, 126. 2 ,2,6.6 .6,6. .68.36,36.126,7 
0 ,70,126, ,126,66,66.126.6,6,6 

355 DATA. 60 .30 .36 . 126 .98 .38 .98 ,. 124 ,68 .6 
9 ,125,38.38.120. . 126 ,60.64.96.36,98,126 

356 DATA . 1 26 . 66 . 66 , SB . 93 . 98 . 1 26 . , 1 26 .64 . 
64.1Z6.36.96.12G. . i 26 ,64 .64 . 1 26 .96 ,36 . 96 

357 DATA. 126.66.64.102.93.38,126. .66.66. 
66.126.98.93.98. . 16 . 16 . 16 .24 .24 .24 .24 . .4 
-4 .1 ,6 

358 DATA6.70.1 26. .68 ,68 .68 . 1 26 .98 .93 ,98. 
.64 ,64 .64 .96 .96 .96 .126 

359 aflTR.r2B.74.y4.lB6.L06. 106 .106. .126. 
66 . 66 . 98 . 93 . 9fl .98 . . 1 26 . 70 . 70 . 66 . 66 . 66 , 1 2 
6 

360 DATA ,126,66 .66 . 1 26 . 96 .96 .96. , 126 .66 . 
66,66.66.94 .126. . 124 .68.68.126 ,98 .98 ,98 

361 DATA. 126. 66. 64 ,126.6.70.126. . 126 .16. 
16. 24. 24. 24. 24.. 06.66. 66. 98,98. 98, 126 

362 DA Tfi. 98. 98 ,9B . 182 . 36 .60 , .74 , 74 ,7*4 
. 106.106.106,126, .66,66.66.60,98.98.98 

363 DATA. 66.66 .66 . 1 26 . 24 . 24 , 24 . . 1 26 ,66 , 6 
.60.96 .98 . 1 26 

364 DATA 24 .24. .126.2.2.126.96. .96 

365 DATA. . I 17. I \YJ .79.12.12.12, ... 184 ,220 
.204 .204 .204 

366 UATA12.8.3.8. 17.23.31 . 34 . 204 , 1 37 , 1 36 
.136.16.112,241 .37 

367 DATA133 ,206 , I 32 . 1 32 . 132 . 1 32 . 206 . 1 32 . 
2 20 , 1 00 , 68 ,68 , f.8 , 68 , 238 , 68 

368 DATA44 .1 14 . 3<i . 34 . 34 . 34 . tl 4 . 44 88 . 

32,32,32,32 

369 DATA33.34 . 34 . 34 . 35 .34 ,93 .49 . . ,.8,4.4 
. 2 .2 , 133 ,34 ,69 , 1 32 ,4 ,4 , 36 , 135 

370 DATA7 ,136. 77 , 72 , 72 , 72 ,72 , 1 35 . 1 I . 156 , 
136,136.136,136.157,8 

371 DA r A 1 28 . 1 2« . I 28 , I 28 . I 28 , 1 32 . 206 , 1 32 
380 FDKE36869.?P , >:PRINI [ CLR J 

100 PRINT TBLKJ I?* rCN3fBI.Ul !F0RAMr058 
B : NEXT 

401 At = si s/tiji q#A3i s/DH s/Eisrs/B.u s/Y3 

S ':6OSUBl00B:PR[N>r:PRINT:PRlNr SSSSS I 

102 f\\- I S/fllf S/OHS/RjrS/TJtS/EHS/N] : 
&0SUB18BB:PR1NI. PRINT T CNJSSSSSSSSS : 

103 \ S/FH S/R US/EH S/D U S/E U 5/KK S 

/I it s/kjis^sk <;/rirs/N]ts/»3 •• gosubibbb: 

PRINT f 3CN J ! FORA -1 T 0*500: NEXT 

404 At = StS/Ull«;r!KS/f1]r5/fl]t 5/LJCS/EH 

5/uu s/ous/Nisr s/i h s/sjsr s/A3S[ s/t ns/ 

(•13(5/01 :GO5UBI00)0:l*RINT:PRlNr 

403 Aft- ST S/P II S/Llf S/A3C S/OC S/EJl S/RJS 

3ts/uist s/r)[ sa'h 2s/Njrs/ni s/sks/gus 

/flJl S/T1US/FH S/i I : GOSUB 1080; PRINT: PR IN 
T : PR I MT : F DRA a 1 rc»500: NEXT 

406 Eft = S[S/FHS/RUS/Eir2S/S3SrS/SUS/f 
US/A3CS/C3rS/t:tr S/BUS/AH S/RJS :fl*-Cft: 
GOSUB1808: PRINT: PRINT 

407 Dft^ STS/FirS/OH S/R3SCS/T13i:S/OU S/R3 
TS/EIStS/I HS/N.H S/FHS/OltS^tS/rljrS/A 
HS/THS/inS/OK S/N]CS/*J ■ Aft =D*: GOSUB 1 
000 

410 GETAi: IFAftO 1TCN410 

411 PRINT TBLKJ B*"fCN3[BLUl :FORA=1TO50 
0: NEXT 

412 A*= 9fS/P3l S/LIT S/AKS/YHS/EICS/RJS 
ISf 9/Ult S/SKS/TII S/S3 : GOSUB I 000: PRINT: 
PRINT 

413 a*= ST S/T3TS/4HH S/ElSrS/J3fS/OU S/Y3 
f S/SJC S/TH 5/1 J I. S/CH 5/K J[ S/t 3 : 6OSUB100 
0: PRINT : PR INT: PR TNT: FORA = 1 TO500 : NEXT 



414 At = SrS/PirS/l_J[S/AllS/YUS/EirS/RJS 

2srs/uir s/sir sxt hs/sj - gosub 1000: print: 

PRINT 

415 Aft = SrS/ntS/WtS/ElSrS/MTS/EUS/YJ 
rS/SDSt S/QJSt S/U1ST S/E1S :G0SUB1 080: PRIN 
T : PRINT: PRINT SSSSSSSSS : 

4t? flt= srs/Aisssrs/oisi s/ahs/nus/d;] t 

GOSUB1000:PRINT.PRINT:PRINT SSSSSSSSS ! 

lis ni= srs/2isi s/xTsrs/cisrs/sn s/iutsx 

l H S/FJt 9/T] * GOSUB1800: PRINT: PRINT: PR J N 

T:FORA=ITO500:NFXT 

119 A4 - C ft : GOSUB 1 000: PRINT .' PRINT 

428 Aft -Uft: GOSU81800 

421 GETAft: TFOft O T HEN421 

122 PRINT 1 Bl K- I Tift ICNITBLUI -FORA=ITO50 

0;nfxt 

425 flt-= sr s/rn ^thji svEisrs/oirs/ni s/rj 
f s>CTi s/nr s/r 11 vi it s/oks/nis jgosubib 

00:PRINT:PRlNr 

426 Aft = SI VOM^/F15CS/nis/H3(S/EISrS/B 
U 9/A1I 25/L]5r ST II S/S] : GOSUB 1880: PR I NT 
1 PRINT 

427 a* - srs/uus/rirs/pirs/Eu s/niis/dji 
s/Eus/NHS/riqi s.-ou s/Njsr s/r jcs/nir vl 

1 : GOSUB 1 000: PRIM I: PRINT 

428 Ht- SIS/1111 S/I]rS/R3tS/EUS/CjrS^T)C 

s/i k s/oit s/Nisr s.fnr s/Fjsr s/t jcs/uks/e 

1 -&OSU81000:PR[Nr:PRINT 

429 rt*^ sr s^r ji s/r ii 2S/NH s^ni s^sjsr s/r 
u^/nir^/cusA. ii %A u s/r i^rs/iu s/tn ;n 

OSUB1000:PRINI : I K INT 

430 ntt si s/r irs/mis/Eists/SHs/THS/R;] 

r S/0 II S/KU S/F II S/1 ] ■ GOSUB1800: PRINT: PR 
tNTlPRlNT : PRIN T . IIJRA-I rOS00:NEXT 

432 ft* =Lt : QOSUB i000: PRINT- PRINT 

433 lH-Ut:GOSUBiB00 

434 GETAt:rFA4^> THFN434 

450 PRINT r&LKJ B* tCNKBUUl :FORA = lTrJ50 
8 : NEXT 

451 a*- srs/uirs/r'jsrs/pif s/R3rs/-c]r2S/s 
ns/nr s/NjrsAiisrs/nr s/hjis/ei :gosubi 

000:PRINI:PR1NI 

452 a* - srs/r ii s/ius/Rjrs/Eirs/BTrs/ujc 

2S/TJ[S/01CS/NISI S/AjrS/NJI S/D.IS 'GOSUBl 
000:PR1NT:PRINT 

153 fi%~ SrS/SU S/IH)[S/I KS/fK S/T)S[ S/KJ 
rS/EKS/Y)SI S/OK S/RJSfS/IHKS/OUS/n -C 
OSUB1000: PRINT : PR INT 

454 Ai- SrS/YIIS/OUS/UlSrS/CT[S/^]fS/NJ 

sr s/n ir s/a ii s^k ii s/e isr s/ljes/oh s/NJts/ 

Gl : GOSUB100R. PRINT; PRINT 

455 At= sr S/AII S^N.lES/01SrS/S3rS^HI[ S/Ol 

r s/r ir s/t isi s/n h s/a it 2SA.ii s/sh s/t j :g 

OSU0 1 000 : PRINT - I'R INT : PRINT : PRI NT : PRINT : P 
R I NT : FORA = I TOSR0: NEXT 

156 A*-C*: QBSUBI000: PRINT: PRINT : At tDI: GO 
SUBIB80 

457 GETAi.'TFAftO THEN457 

458 PRINT TBLKJ Bi t 3CNJTBLU! :FORA=ITCJ5 
00: NEXT 

453 Ai= SrS/A]l2S./L3SrS/TJCS/HJ[S/ElSfS/ 
GHS/Rjr S/FlirS/Plt S/HKS/I3CS/C3 : GOSUB l 
300: PRINT : PRINT 

460 Ai= SrS/ftjrS^OlCS/UlCS/EHS/rl.KS/EH 
S/N3I S/TITS/S1M S/pilt S/01C S/U3E S/E IS! S/I 
US/N3S ■GQSUB1000:PRINT:PRINT 

461 A*= srs/DTrs/NJTS/Eisrs/Birs/nrs/TJ 

r S/+3 -GOSUB1800; PRINT: PRINT: PRINT: PRINT 
: PR I NT ! PR INT: PR INI; PR IN T I FORA = 1 TD500: NEX 

T 

462 At=C»: GOSUB 1000: PRINT: PRINT'- H* "Oft: GO 
SUB 1000 

463 GETAt: IFAftO THEN463 

470 PRINT I 01. K J Bft'TBLUl : FORA : 1 TO500: NE 
XT 

471 Aft= SC S/THIS/A]rS/T33tS/ElSrS/0][S/Y3 
S :GOSU01000:PR1NT:PRINT:PRINT SSSSS ■ 

472 a*= rs/rursxo]rs/R3rs/T3CS/E3rs/N3 : 

GOSUB 1008: PRIN T: PRINT- PRINT SSSSSSSSS I 
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473 At* rSvf ll S^R3t S/OU S/^ If S/KJCS 

^nrs/K][S/sirs/eics/N]cs/+] :gosubi«0b: 

PRINT fCN) -FORn^lTO500:NEXT 

1?1 IFfPEEKi:37l5l 1AND64 ):6irHTNAi? STS/P 

ICS/RH^EH 2S.^]Sf S/PUS/uHS/flHS/YJSr 

S/t)]tS/H]SrS/f II 5/flJfS/P1[S/EKS/t] :G0S 

JB1080;PRINT 

175 IFCPEEKC3P151 .1AND61 ] ?64THEN475 

"76 PRINTS*- r ,[ ^A][S/01[5/n][S/01fS/n 

I S/WJf S^GU S/HIUHT3 :GOSUB1000 

939 GOTD3000 

IB00 FORnn roLFNfnu.-PRiNTniDtrfli .A,n;t 

POKE36876.220: PCIRB = I TOZB: NEXT 

1001 POKE36875.0:FORB^1TO10: NEXT: NEXT: R£ 
TURN 

3B00 P0KCi98.SP0Kr631 .78:P0KE632 .63:P0K 
E633 .87: POKE634 , 13: POKE635 .131 

1081 DATA169. 0.162. 48. 137. 153. 20. 202, 208 
.250 .231 

4016 DATAl56.0.ie9.3l,l57.t61.20.l63,56. 
157. 177.20. 152 . I S3. 20. 163. 84 .152. 178 .20 

4017 OPTO 1 57 . 1 82 . 20 . 1 63 . 1 70 . 1 5 7 . 1 79 , 20 , i 
57.181 .20.163.214 .157.180.20.234 

5001 DftTfl 160. .167. .24.126.159.20. 126.175 
.20.126.191 .20.232.224.16.208.241 .200.13 
6.1 .208 

5314 DATA234.-46. 166. . 164 , 1 . 24 . 32 , 210 ,255 
.169.84-32.210 .255. 163. 86. 32, 2 10. 255 .169 
.88.32 

5319 OATA2I0.255 

5320 DP.rp.163, I 7. 32 .210 .255. 163. 157, 32 .21 
0 . 255 . 1 63 . 1 57 . 32 . 2 1 0 . 255 

5323 Dprfil59. 157,32,210,255.163.85.32,21 
0 .255.163,87.32.218.255 

5326 0ATAI&9. 39.32,210. 255. 96 .166.0,16* 
.1 .24.32.240. 75S. 173.1 .28.164 .211 
5102 DATflHS.Zfll. 200. 173. 2. 2B. 115.209 20 
0.173.3.28.145.209.166.0.164.1 .232,24,32 
.240 

5404 DPTflZ55.164.211 . 173 ,4 . 28 . 145 .203,20 
0 .173.5.28. 115 .209 

5409 DP rfl2fV0 . 1 73 .51, 28 .145, 209 . 96 . 1 66 , 2 , 1 
61, 3.163, 4. 24, t'l. 31 .145.288 

?002 Dnrm .20; ,163.3.21.45.31 . 115.200,1 , 

232, 169. 16.21 .45. .31 .115,208.1 . 136 

7006 Dflrfll69 . 1 7? . Ill ,31 . 115.21 , 169 , 128 4 

5,32.115,208.1 .200.169 

7009 DATA255 .111 .34 .145.224 .255 . 208 .4 . 16 
2,7.198. .221.3.209 

7012 DATA4. 162 . . 230 . . 1 32 . . 208 . 4 . 1 60 . 8 , 1 3 
8.1 .192.9.208.4 160.1 .230,1 .134 .2.132.3, 
96 

8000 DATP169.28. I 33 . 1 0 . 1 69 . 20 . 1 33 . 8 . 1 33 
6 .160.0. 132 ,4. 164 .2.166. 1 .21.32.240 

9002 DflTfl255 . 1 64.211 . 1 77 .209 . 1 33 . 3 . 169 . . 
160 . .21 . 105 .8. 708 . 196 . 3 . 208 . 218 , 1 33 
8004 0ATA7 . 160. .177.5.17.7. 145 .5.208.192 
.8,208.245. 165 .S. 24. 105, 16 , 133 ,5 

Q006 DP rp.230. 2. 1 64,4,200. 165, 3. 145. 3, 136 
. .208.193,36 

9001 Dpmi65 . 1 74 . 133 ,0 .133. 18. 165 .175.13 
3.1 

9082 DP TP1 33. 1 3. 165.176. 133 .2. 165 .177,13 
3 .3,32 

9003 PATAB4 .26.165.176,137.2.208.7.165,1 

9004 DPTP197. 3. 200.1 ,96.165.1 ,13-3.175.16 
5 ,0 

9005 0Prpl33 . 1 74 , 165 .2 . 1 33 . 178 , 165 . 3 , 133 

9006 DATA 165 , IS . I 33 . 0 . 1 65 . 1 9 , 1 33 . 1 .32.24 

9007 DATA165. 170. 133.8.165,177. 133.1 .32, 
1 1 2 . 23 

3008 DATA169.3.133.8.I65.171.133.I .165 

9009 DATA175.I 13.2.163,0.133.9.169 

9010 DATA168.1 33. 5. 32. 100. 25 ,169.3.133.0 
9B11 DATA1 66. 174. 232, 134 .1 .165.17^,133.2 
.163 



3012 DPTA3. 133.9,169. 168.133.5.32.108,25 
. 1 65 

3013 DflTAl 74. 133.0. 165.175.133.1 .32,185. 
23 . 96 

9101 DPTA165. 137. 201 .64.234 

9102 Dflrfl208.1 .SC. 166. 2, 164. 3. 201 .18.208 

9183 Dnrn2BB.20i .17 .20B.1 ,136.201 .25.208 

9104 DfUn232.701 .9 .208 . 1 .202 . 201 .34 .288, 

9105 UO7fl232.200.201 .48.208.2.202.136.20 

9106 DflrA33. 208,2. 232. 136. 201 .49.208 2 2 
00 . 202 " ' 

9107 DOTA224.i55.288.4.162.7.138.0.224,8 

2 0, 1 1 

9100 DPTfl.4, 162.0.230.0.132.0.208,4. 160.8 

9103 DP.TA198. 1 .192.3,208,4,160,1 ,230,1 .1 
31.2,132,3.96 

9201 DP. TA165, 64, 133.0.133,68,165,65.133, 

9202 DP. TA 133. 69. 165 .66,133,2,165,67 ,133, 

5203 DP1A3. 27. 165. 66, 137. 2. 208. 7. 165 67 

197,3,208. 1 ,96. 165. 1 .133.65.165.0 

9205 QPTAl 33. 61. 165,2.133.66,165.3.133,6 

9205 QP.Tfll65.6P. 133 .0 . 1 65 , 83 . 1 33 . 1 ,32 ,76 

9207 DnTfll65.60. 133.0,165.67.133.1 .32.23 
2 , 28 

9208 DfllTfll69. 3 .133.0. 165. 64. 133.1 .165 
9289 DPTA65. 133. 2. 163.6, 133, 9 169 

921B DflTnZBB. 113.5.32,100.25,169.3.133.8 
921 1 DATA 166 .1.4 .232.134.1 . 165 .65 ,133.2,1 
69 

9212 DPT A3 . 1 33 .9 . 1 69 .21 6 , 1 33 .5 .32 . 100 ,25 
. 1 65 

9213 DP TP.64. 131.0. 1 65. 65, 133.1 .32.172.28 
,36 

9314 DPTftl66.0. 164.1 .24 

9315 DPTfl32.24R.2S5.169 

9316 OPTA90.32.210.255 

9317 DflrA169.92.32.2l0 

9318 DPTAZ55. 163.94.32 

9319 OATA210.251 

3320 DATA163.17 32.210,255 

9321 DATA163.157.32.210.255 

9322 DATA169.157.32.210.255 

9323 DAIA169. 157. 32. 210. 255 

9324 DATA169. 91 .32.210,255 

9325 DATA169. 93. 32. 210. 255 
9325 DATA163. 05. 32,210,255 .36 
^4^DATA169. .162.48.157.207.20.202,208, 

9516 DATA166. ,169.31 ,157.212,20.163.56.1 
57.225.20.157.231 .20.163.84.157.226.20 

9517 DA Tp 1 57 . 230 .20 . 163 , 170 . 1 57 ,227 . 20 , 1 
57.223.20. 169.211.157.228.28,234 

3600 DATA160. 

9601 DArA162..Z4. 1 26. Z08. 20. 126. 221. 20.1 
26,240.20.232,224 .16 .208.241 

9602 DPTA200. 196. 1.208. 231. 96 

9701 DA rfli66. 0.164.1 .24 .32 .240.255.173.7 
.28.164.211 ' 

9702 DATfll 45. 209. 200 .173.8.28.145.203.20 
0.173.9 .28 

^703^DPTP145.209. 166.0. 164 .1 ,232.24.32.2 

9704 DPTA211 .173.10.28.145 .283.200 173 1 
I .28 .145.209 . 

9705 DATPZ00. 173. 12.28. 145 .209.36 

9882 DATA 1 65 , 1 71 . 20 1 .12 ,208 , 10 , 165 176 2 
01 .0.206,1.169.1 .133.176 

9803 DATAI65.61 .701 .10. 208 . 1 0 , 1 65 . 66 ,201 
.7.208.4,169.6.133.66 

9804 DA rfllG5. 174. 201 .20.208.10.165 176 2 
01 .5 .208.1. 169.4 , 133 .176 
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3805 Un r 016*3 .64 .£01 ,8.208. I 0. 165 .66 .281 , 
2.20S.1 , 163 ,3 - 1 33 .66 

3017 Ufll 016 5 . I -'3 .201 .8.208. 10. 185 . 17?. 20 
1.2, 209. 1,103. J 113.177 

33 13 nnrni53.fi'i.20i .0.230.10.165.67.201 , 

2.20fl,4. 169.3 133 .6; 

38ii nnrnifis.i 201 .19.288.10,165.177,2 

01 .3.208. 4. 16^.2, 133. 177 

3R15 UniOlli'.J.*. 201 .13.700. 10. 165.67,201 
.3.20H.1.1M./.I 33.67.36 

9900 pnTf»169,0 . 1 62.48. 157.23.21 .202.209. 
250.231 

3301 pn»Ol66.0 .169.56.157.10.21 

3302 DO r 0165. IBS. 24. 1 01 .0.(70. 169. 16. 157 
.21.21 .157.76.21 . 189,55.157.25.21 

3305 UnTni60.0 

3306 rJO r 01 6 2 ,8 .21 . 126.21 .21 ; 176.10 .21 ,23 
2.771.71,7811.74.1 

3H0-» (in rn20W . l< n i .2 . 7fp . 237 . 96 

39 1 1 Un in 1 6B . R . MM . I .71 
99 1 5 DM 032 . 24.0 .239;. 169 
9316 PA rfi3"> . 37 . 2 10 , 
3317 DniniM. 10.37,710 
9919 0flTflZ5*5.*R9. 17.34 

9919 0010710. /v. 

3520 unini'i3.i'..'. 32;2t«-zr»5 
3121 uni niG3. j3, i?,2i».2S5 

9922 DrtrniOT. 157.32.210.255 
3373 DA r 0163 . 1 7.32.21 0 .255 
3921 tmtOI63. (57. 32. 710.255 
3325 DnrniG3. 37. 32. 210. 255 
9926 DnTni63,ll-t. ?2. 210.255 

3931 DOrniLi9.M5.32.210.255 

3932 D(3Tni09. 157.37, 218. 255 
3333 DOrnifJ'l, 157.32,218,255 
9931 0nrni63, JFi..J2. 210.255,98 

10000 UnTHi 69, 28. 133 .10.169,20.133.8 ,133 
.6.230 ,6 

10801 DprniRB.R. 132.1.161.2.166.1 .21 ,32, 
210 

1000Z Dflrfl?55. | 61 ,71 1 , 1 77 . 203 .133.3. 1 63 . 

0 .160 

10003 |JflMB.21 .105.8,200.196.3.208.218.1 

33 

10001 Pmn?. 11,0.11. 1 77. 5. 17. 7.115.5.200,1 
92 

10BB5 on ma . ?w . 745 . 1 6s .s . 24 . 1 05 . 21 . 1 33 . 

5 

10006 Dflrrt230.2.l64 ,4,200,165 

1 0007 DriT03 . 1 15 .9 . 1 36 .0 . 208 .193.36 

1 0 1 00 DO r 0 1 65 . 753 . 1 3 3 . 0 . 165 . 254 . 1 33 . 2 , 32 
. 20 . 30 . 165 .251 . 1 33 .2 , I 33 . 1 73 , 1 65 . 252 ,133 
.172 

10101 Dl3Fni33. 1 .163.2.133.0.163.20.133.9 
. 163 ,24 .133.5. 32 . 160 .30 .165,251 .133,2 

10102 Df3T0l6G . 757 .237 . 134 . 1 , 1 53 . 2 , 13 3,0, 
169 .22. 133 .3 , I 69 , 32. 133 .5 ,32,160 . 30, 165 , 
251,133.2 

1 0 1 0 3 Df3Tn 1 66 . 75? . 232 , 237 , I 34 . I . 1 69 , 2 . 1 9 
3 ,8. 169 .21 , 133 .9 . |fig ,48 . 133 ,5,32 , 160 ,30 
10104 PnTni63 . 75/ . I 33.0 . 165.251 . I 33 . 1 ,32 
.80. 30.96 

7010 1 DO TO I 66. I -'2. 164. 173. 24. 32, 210. 255. 
l?3,2l ,29,164 .21 l 

20102 D6TAS45 . 709.200 . 1 73 . 22 . 78 . 1 45 . 209 

20103 Pnmi66, 1/2, 154. 173, 232 .24. 32. 240, 
255. 164 

28104 DPT021 1 .1 .'3.23,28.145.209.200. 173 . 
74.28.115.209 

2BIB5 D|3T6l 66 . 1 22 , 164 , 1 73 . 232 ,232 ,24 .32. 
240,255 ,164 

20106 DflT071 1 . 173. 25.28. 145.703.20H. 173, 
26.28.145.283 36 

20201 D0T0165 ,119,208,4 .230 

20202 U0TOI19 ./■<&. 149,198 
Z0703 Unif»L19. 71. 101.115. 24 
20201 D0Tn21 .101 .253.133.253 
20205 D0rni93./'.H 

2021 1 D0TOI65 . I1B.208 .4 .230 



20212 onrnna. 2^0 .148.198 

20713 13(1 rn 148. 74. 181 ,117.71 

20214 Pnfn74 . 101 .254 . 13J.Z34 

20215 Drtlnl 90,754 , 166 ,251 , | 64 , 253 
2030B 0(410221 .0.208.4 . 1 07 .8 . 1 38 . 251 .221 . 
9,208,4, 162.1 ,730.251 ,132 

20301 pnrn255 , /oh .«i . 160. ?. i 98.252 , 192 .8 , 

208,4 ,150.0 ,230.752.131 ,251 , 132.?b3.96 

70401 Unini69.W. 162. 0.24, 105 

20402 Uam8,232.228.25l.2B8 

20483 Dnrn248.7'l . 181 .251 

20404 001056.2 r I J 1 . 1 33.0 

70489 Uf»rni69.H. IB2. 0.74. 105 

20485 Dnin8.2</./28.i75.2BB 

20107 DflT n24fi, 24 . 10 l .177 

20198 Uflini 53, I /M. 160.0 

2R489 nminirri.w. 137.1 .7*8,3 

20410 UflTf>7G »*«. 12.230,0.200 

204 11 Iinini97.fi. .-08. 240. 96 

30481 UnTOl63.8.|l>7.0.24,l05 

3B102 nn(08.23/.228.252.288 

301R3 Dnrn248.74 . IBl .253 

30401 nnrn^n . i wi . i65 . i 33 .0 

304RS Untni69. '167,0.71.105 

30406 DnTn».737 ,27'J.I 74 .2BB 

30407 Dnrn748 .24 . 101 . 176 

30408 OnTOI 33. 1 ,234,160.0 

30409 Dnmi65.R. 197.1 .283.3 

30410 0nTfl76.1H8. 32. 230. 0.200 

30411 OnrOl92. 6. 70S. 740.96 

30501 onroim. 210.141 .12,144 

30502 im 101 63 . 7 . I J3 .2, 133.3.32 ,84 .26 .166 
■ 3,164 ,2 

30583 Dnrni97, 1 .708.7. 169.8. t 33. 146.134 . 
147.96 

30501 Dn">0221 . I 70B, 9. 1 69. 0. 1 3 3.147. 136, 
136,i32, 146.96 

30505 DnTnZ74.1 708. 9. 164. 4. 133. 147. 136, 
136.137.116.36 

30506 UO TO I 69 .H . I 33. (46.169.2. I 33 .117,96 
5000 i Pn fOl 09, 0.107.0,71, (05 

58002 D<3rn8.2?>:.7 7R,751 ,208 

50003 Pnm?18. 71 . 101 .254 

50004 PHT056 ,? II .133.8 
"30005 Dnrfllb9. 0.162,0. 24. 105 
50086 □n'n8,237.228.65.208 
50007 Dnr0248 . 74 . 101 ,67 
50808 DPmi33 I .734 . 160 .0 
50089 DnT«165. .197.1 ,288.3 

50010 DflTn76, 84 .33.230.0.200 

50011 DnTni92.6.20G.240.96 
58101 Pnrni69. .I62..24.105 
= 8102 DninS.737.229,252.208 
50183 PnT0248. 24 . 101 r 253 

50104 DfllO'nG. 181 .165.133.0 

50105 D«T0I69.4 102.. 24. 105 

50106 OflTflR. 237. 778. 64. 208 

50107 Dflrfl?1B .71 . 101 ,66 

50108 DnT0133.1 .234,160.0 
50189 Dflrni65. .197.1 .288.3 
58118 Pfll076. 157,33, 230. 0.200 
50111 D«r0!97 .6 .708, 210 .96 
50280 UfiWl6".7R5.l4l ,12,141 

50201 0010163.7,133.2,133.3.32,8.27, I 66, 
3.164 ,2 

50282 DpTOi 92 . i . 208 , 7 . 1 63 ,1 , 1 33 , 1 16 , 134 . 
117,96 

50203 DnT02Z4.l .208.9.(69.0.133,117.200, 
200. 132 ,146,96 

58204 0*10721 . 3 . 208 . 9 . 169 .1 . 1 33 . 1 47 . 200 . 
288 .132 . 146 .36 

5B2B3 Dflr0159.4 . 133. 146 .169.2. 133.117.96 

60000 DflTO) 65. 16*5.20 I .0.208.18.230.166,1 
55 , 1 66 , 19? . 168 . 710 , 1 ,96 

60001 DfirO2 30. 1 65 .169. 1 . 1 33 , 1 67 . 1 33 . 1 66 , 
36.165.148.208.71.165.165.74.101 .167 
60082 0*3101 33 . 16'. .281 .1 3 .208 , 13 . 163, 208 , 
111 . 11 . 114 .169.755. 1 33 . 167 .169.0.133. 166 
.96 
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60101 DOT0I69 , . I ^ I . I J . 1 14 , I S5 , 252 , 70 1 , 9 , 
210. t .96. I65.25.*.70l 

60102 onro7. 210.1 .96 . 165. 165.201 ,6.210 1 

.36, 173. /I .14^.11 ,1 .133.0 

60103 onrni^3. 2« . in .41 , 1 , i33. 1 169 2 24 

-101 ,0 . 56 . 2/9 . I . I .'3 . I 47 . 1 69 ,250 .141 n i 
4 4.96 . 

60201 DnTBlG7.0. |I.V2*2,2B1 .0.200,7. 163 
253.201 ,0.209. 1 

60202 0010165.7^7. 201 . 1 9 .209 , 7 . 165 ,253 .2 
01 .7 .208, 1 ,96 

60203 D0miH'i.2Sl .201 .0.203,1 .96.l6S.251 
.201 .20.203,1 ,9R, lfi7.25^.95 

6B30J DflTni69.0 11 1 . 1 1 . 1 44 , 1 52 .0 . 165 252 
.201 ,0.208. 1 .96.2B1 .19 

60302 DATA209.] ."16.281 .1 .209.7.165.753,2 
01 .7 .240.1 .96. 1 ft . .252.701 , I 8 . 288 . 7 . 1 65 ' 7 
53.201 ,0 

60303 DOTO/IB. 1 tO.l6S.25l .201 .0.700.1 ,9 
6 .165.2S4 . j MI.H.-M . IBS .9 .200 . 1 96 . 20 1 
6B304 Unrn208.7'in, U3. 0.169 ,46 ".6 723 25 
2.133.1 .169,124.74 

6B30S 00^101,^.7.133.2.165.0.197.1,16 t 
-^6.155.0.197.7.06.1 .96.162,255.96 

60310 UOM32.34.J1 .32,252.33 

60311 U0T016S, I4it .70S. 9. 32 200 25 i2 37 

28.32.136.29.37. I S4 .31 . 32 , 210 . 30 . 165 | 1 81 
. 200 . 1 

60312 DYUn9fi.2-M ..'34 . 234 , 32 , 27 . 33 . 1 73 , 1 2 

.111 .240.31 -I'n. . 133.185.133.166. J 69. 255 
- 1 33 . 1 67 

60313 DOIOI69./.133.186 

6B3H 0O7ni69,-=.R. |33. 169,21 .163.32,45,17 
.115.203.4. 1 69. 2S.U3. 168, 96. 32. 239, 31 ,1 

60315 DfirflMI, 240. 30. 169. 0.133, 184 133 1 
66,163,255, 133.1137 

60316 DOTO! 69. I . I 33.186. 169 ,46 ,133 168 1 
73.111 .2,201 .1 .2Wa. 4. 23. 133. 168. 96 
6031? 00 T 09 6. '16 

6H1HI U0IO32,H. ^.173.12.114.2-1^.7.163 0 
-141 ,12.111 ,133.194 

6H102 001032. 'jB. 10.173.13.141.210.1.169, 
1 . 1 33. ISP 

6R483 D0T032.1 I b . 34 .221 , 0 .2B8 , 3 . 1 U2 . 1 0 ,9 

6 

60404 Dnrolfi5.2'.7.2BI .9 . 708 .2B . 1 65 . 753 , 2 
01 .7.708.14. IG51.1 .133.181.165.165.201 ,7, 
18.1.162 

60405 D0T078. 36. 231. 2 J4. 234 .165.165,201 
13.209.17-173.1 I .111.210.12.169.1.133.16 
8 

60406 DOroi69. 0.141 ,| 1 ,14.4, 162.30.36, 162 
.0.96.96 

60411 00(0162,0.234. 234. 234. 189. 74), 18 15 

7.52.18.189,96.18.157.74,18,189.116,18,1 
57.96 

60412 ooroia.ian,!i0.i8,,57.H8,i3.i69,i 

9.I57.14B.1S 

60413 0070232,224.9.208,221 ,96.96.96 



1 GOSUB4000 

2 FDf?^^460ZtO175b:POKfO.l3;POKr5l2rfir332 
80 ,0:NEXT 

3 FDRf» = 4*580TD4BB|.PaKEft.32;POKr.5l7tfti332 
80 .4: NEXT 

4 r0RO=46|5T04?i7 f irET22;PaKe0.32:P0KE512 
*Of332S0 .4:F0RB-OHT0fl*8:P0KE5l2+Dt 33780 
.7:NEXTB ,0 

5 F0R0=4616T0fl65 '^TeP22:F0RB-0T0O»7:pOKE 
512tB-33Z30,6.NI <fB.O 

7 F0RO=5376fa5i«3. POKrn .255: NEXT 

B F0KE1625.83. POKE 1626 .69: P0KF.1627 .84 : PO 

Kf4629 .49-P0KF4TJ JZ .50: POKf.4635 ,51 



9 POKE4 670 . 7 1 .- PQKI .4692 . 65 : POKE47 1 4 , 77: PO 
KE1736.69 

299 P0KE36B81 ,74 

300 POKr36869.70 c i:POKE36879.2B.POi-.r3O867 
.68; P0KL*3687Q. 15 I'RINT I MOfl H OlU 1 SSSSSSS 

301 PRINT SSSSS^SSSSSSSSSS.S^SSSSS^SSS'iS 

303 PRINT ^QRS5SMiG^?^S5S^0OSSS^SSSSSSF 
FSSSSSSSSBeSSSV-^-^SEESSSS : 

304 PRINT ?SS < 3ri1iiliHMMliMHHMN0 , 5SSS5 , ?SSPDSS 
•iSebSSSSCCS5S9S'-.qsrrSSSS0GSSS9BBSSSS I 
30^ PRINT SSSSrf;9SS»GSSSSflnSSSSSS»l-jjjj 
J I I M J j ) J.| JGSSS^OOSSSSSOGWSSGG^ , 
312 PRINT ^SWr.S?SSoG5SSSSrFSSSS^SUf3SSS 
SSOG^SSFFW^rrsSSSSOGSSSSSDOW : 
315 PRINT SSSIJV.illllUIirilLCSSSSSSCESSS 

318 PRINT SSSGGS'iSSSOPSSSSSOoSSSSSSl 1 1 I I 
1 I M II I I I II W i 

321 PRINT SSSSSSS^SSSSSSSSSSSSS : 

325 rORn-^l68rO. , l92:PDKF,0, 19: NEXT 

3 30 POKE 1 74 . 1 7; POKE I 75 . 9; POKE 1 76 . 0: POKE 1 

7^.6 

340 POKF.64 .5 PUKrG5.9:F0KE66,B:PaKr67.6 

398 Pfl ) BrPTZJ ff?Pfc«Pttll [FPU=2THrNPL=B 

399 1FPI. = I Thl NS=fl 

400 GO5UB909iSK I 

401 POKE14B.8: "Ok.ri19.a:P0KEl6B l 7;PDKFl6 
7 .1; 5E-l;*'-P(l )-m -0:POKFIB7.0:ONSKGOSUB 
702,704 

103 PQKE251 ,rj| .PT3RE252,IJ2: POKE M>\2: POKE 
J 16 . 2: POKE253 . t) 3i PCIKE254 .04: POKE I 65 , 0: PO 
KEI81.1 

104 SYSS963 

105 SYS8700- SrsaSBB: P0KE3B975 .0: T FPEEKC3 
6876 ):0THFN105 

483 BO "0: POKE I SI . 0: 5/S8B2B: Ff - 1 : I FPEFK( 1 
17 V-UlflNDPEFKf 14*> 1-iJ20NuPFEKT I 68 3>30THFN 
FC rB 

500 SYS9085 Trwi I Kf7fll j-bthcnsbb 

"105 I F PFiTK C 7fl | l-^BThEMBBB 

50G irPF.TKt -'81 1 /0rHrNFF-l:GUSUB1080:GOS 

UU70e:GGmti0fl 

507 IFPECKC 781 3 : I BTHPN; GO5UBIB0B: G0T0667 

600 JFSE-lONOrF lONDSK=2THENPfPLf 1 )-p(PL 
-13(1; GOSUSV06- 5 r'S8820: GOTO400 

601 IFSE-lflNDI'F MONOSK = lThEN5K = 2: 68SUB7fi 
6;SfS8020:GOrO40l 

602 IFSE --lONDPrrK f 187 1 = 1 TMENSY58828: GOTO 

401 

605 IFFE--irhENPrPFFKtl06))^PCPEFKU86m 
l:GOTO400 

610 SE=0 

611 SYSBB65: irPITKC?BI 1-0THFN668 

615 IFPEEKC252 KSIONOFEEKC 1B6 KMT HENPl 2 ) 
-P(2 )tl:SYS8020; GOTO400 

616 TFPEFKf 252 ) >90N0PEEK( 1B6 J02THENPC 1 ) 
-P( Ut 1 ; SY5802B. GO r 04 00 

520 IFprrKf 752 K9 THENB0--1 
621 IFPECKC25? )>'irHFNB0-2 

666 POKE 1 86 .0; GUI U500 

667 IFSt-lflUDSK I IHFNSK=2: GOTO10I 

668 IFPEEKC252 K9 MCNBO-l 
663 irPECKL252 »)'iTHEN0O-2 

670 TF0O-IONOPFI K f 186 )=2 THENPC 2 1--PC 2 3t 1 : 
GOSIJ0705 

671 JFBD-lpJNDPt FK f ! SB )t 1 THENPf 1 1-PfI J>tS 
GO5UB70E 

672 lFBf3-20NDPri>.r IBS 3 ■ ITHrNPC 1 )^P[ 1 }*it 
GO , 5UB705 

6/3 1FB0 -70NUPI I K f! 86 )-2THENPr 2 )=P( 2 3t 1 : 
G05UB7HL 

674 lFPEEKfl86l &ONOBO-I THFNpf ?3-Pt2)il: 
GOqiJB706 

675 1FPCFKC ISIj 1 -0ONDBO^2THCNPf 1 1=P( 1 )t 1 : 
G0^UB7BB 

6B0 ^i*S8070.' i.U lil4R(l 



700 POKE4750.73;POKE4751 .63: F0KE4 752 . 84 : 
GOTO750 

7B1 POKE4750.?9: POKE4751 ,85:P0KE4752 ,84: 
50T0758 

702 POKE4749.70. POKE4750 . 73: POKE4 75 1 ,82: 
POKE4752 ,83: POKr4733 .84: SYS9180 

703 FQKE4749.B3:POKE4750.69:POKE475l ,82: 
FOKW52 .86: PUKr4753 .69: G0F075 t 

?04 P0KE4749.83; POKE 4 750 ,69: POKF4 751 ,67: 
POKE4752.79: PUM _ 4733 .78: POKE4754 . 68: qyS9 
160 

705 FOKE4743.83.POKF4750.69:PaKE4751 ,82: 
P0KE4752.86: P0KF4 753 .69: G0T0751 

706 POKE4749.70:POKE4750,65:POKE4751 ,73: 
POKE*»752,76:GDfO^50 

707 POKE4749.7R. POKE17S0.69:POKE4751 ,8?! 
SYS9180 

709 POKE«749.7|.l>OKE4?50.B5:PaKE475l ,77: 
PGKE4752 ,63: GO 1 0^91 

7fl9 POKE4749.79:F>OKE4?50.59:POKE4751 .87: 
SYS9180 

71B POKE-V^.a?. POKE4750.69:POKE4751 ,B4: 
GOT075I 

7 20 P0KE474fl.B8:P0KE4749 , ,82:POKE4?58 .69: 
POKE175I ,83: PrjKr4752 .83: POKE4754 .70: POKE 
<*755 ,19 

75B FORO-irOSB NFXr:SrS9180 

751 FORfl - 1 F09 c *: NK XI*: SYS9180: FORfl = 1 T093: N 

EXT:SYS9180;RrrjRM 

900 S?S-»l: fFS-2fHFNS=fl 

981 JFSMTHCNQ1 =10:Q3=5:Q4 = i;Ul=3 

902 IFS-BTHFNQi = lB:0 3-:5:Q4=B:Ul =1 

9B3 IFPt~-i J :W2=4 

904 IFPu=BTHCNn2-U8: W2=0 

910 FDRKMT02 

9 1 1 IFPf K)-0 THE NPBKE 4837 *K»3 . 19: P0KE463B 
•K*3 .4B 

9 12 IFPCK 3^1 THFNP0KE4637»K*3 .49: P0KC4638 
*K*3,53 

9 1 3 IFPCK J^2TH1 NP0KF.4637 3 .51 : P0KE4638 
+K»3.48 

914 IFPf K J*3THFNPOKE4837+K*3 .52: POKE463B 
*K*3 ,4B 

916 NEXT:Z=P(1 )-Z 

319 TFPCl 3<4ftN|)Pf 2 3<4THFNRCTURN 

921 IFPC 1 )>FC2)*I rHFNSfl=Sfl* 1 : GOSUB7B7; GO 
T 02000 

922 IFPC2JVCI Ul FHE^SB-SB+l : GOSJB707:GD 

ro200B 

923 !FZ = lflNDPECKf 4641 )--79TMFN398 



921 IFZ=BF»NDPrFKC4644 )-=73rHEN393 

925 IFZ-|THENPOKC4e4B,70:POKE464i .79;PQK 
E4643.19:PnKFl644 .19 

926 IFZ=BrHENPOK r _4640.l3.POKE461l ,13:P0K 
C464 3 ,70:POKE4644.79 

927 RETURN 

935 P0KFl48,Z:PaK-El43.2 

I 000 P0KE368?'* .200: PCKE36875 .0: POKFJ 46 , 2 
t P0KE147-2 

1BB2 B=PEEKCl65 ): FOR#=BTOl 3: SYS8020I POKE 
165.P.;SYS8963: NE* t 

1 003 P0KE3697S .200: P0KE36S75 ,0: SYS9020: P 
□KE165, 10: RETURN 
2000 REH 

2010 P0KE4673' 3*SQ .Sfi+4S: P0KE4717-»3:*SQ ,S 
B+40 

2015 IFSPK6RNDSB<6THFNC'J=50: GOSUB3800: GO 
TQ399 

2020 IF5fl>SB+lTHENIA=!A+l :SQ^Sa+l :Sfl=B:S 
B -0: CO = J 50: GOSUB709: GOSUB380B 

2021 !FSB>SflM THENrB-IBtl:SQrsa+! :Sfl-8:S 
B-0: EU-I50: GOSUB709 : GOSUB3BB0 

2050 IFin=2ThENCU-5B0: GOSUB3000: GDTOZ380 

2051 1FIB--2TICNOJ ^500: GOSUB3000: GOTO2900 
2108 CU-50:GOSUB3000;GOTO33B 

2900 GO^UB720: GFTfli; lFfl*0 TFU THEN2900 
2910 RUN 

3000 tori -l rocu 

3801 P0KE3B87a,15»f f OJ-T 

3802 P0KC3B877.225:FDRi' = t fO20*RNO)f B l! NFX 
r : P0KE36877 .0: NFXT : P0KF36878 , 1 5 ■ RF TURN 
1000 POKf. 36979 .23: P0KE36969 .7.85: P0KF3686 
7\172:PUKC3680! ,10 

4001 PRINT I CLRJT BLKJf 2CN I T 6CH U 5r- 1 1 S/T 

u 2cnjr zc^jrc/i j 

4002 PR I N I r 6EHlf C/» ll CxSPC]ECvK]CC/-I]C c 
/-T ] t E/G ] t EVA 3 [ E/.« H S/4H C/M 

4003 PRINT T 10CHJ 

4004 PRINT TBLU3C 4CN ][ 2CH3C S/8.U S/YJC EH3 
[ 2CN3tSyH3CSxair S/R3C SsTK S/E1[S/N][ 3CU 3 
[ 2CN3tS/F3CS/R3tS/E3CSy03[S/EKSxR3CS/1 3 

r s/k 3 r s/s 3 1 s/e 3r s^n 3 c s/+ 3 ' 

4005 PRINT f 4CN3C 2CW3C S/P1C S/R3C S/E 1 [ 22/ 
S3CCH3tS/F3ir CH3E S/T U S/OK CH3f S/P3C S/L 3 
r S/AHS/Y3ES/+3 

4006 GETP* : IFfl* <>' T F 1 3 THEN4006 

4007 PRINT T2CH3C CN3t S/OU S/+3C S/K3C Sy+ ] 
SSr S/W 3 f S.^l 3 1 S/I 3 [ S/-T 3C S/+ ] ' 

4010 RETURN 




TfiL INUP.S ION 

TNDSENOT flF 
BRUNO BRBSTED 
STRflNDFtGERUEJ 12 
4970 R0DBY 



Til VIC-20 



t GOTOZ080 

2 rflL-INUBSIDN 

3 TIL UIC-Z0 

4 UOEN UBUIfJELSF 

5 OEN 8^4 1984 

6 r E 3 BRUNO BRB^irO 
9 : < 

IB PRINT rWHUl CLR3r5SFC3TnL-INURS10MI 10 
9PC3C 1 2C/U1 " =0^36878 I POKF'J .15: S=U 3: i_=U- 

I :POKEU*M .3 

II TH= 80000R 

30 PRINT f 1BLN1I 23C/*H 20SPC3C 23E/1 )-' 



^5 FORT =240 r0251^ rtP - 2- POKES , T : POKES ,T-i 
: POKES , T-20: POKES , T-30: NEXT: POKES ,8 
100 A=INTtRNDl 1 3*1 1 3 

105 K=UF»HrlIOtf ri4.3,2 3:x2BrUflLrRI&HT*CT 
I * .2 3 J 

118 IFA = 18riirNUt : e :G0T0138 
'128 W*-RIGHrtrS!R*{f»),l 1 

130 X*-X*'UJ*: TFI.FNCX*3>16TMENX*-TI*:GOTO 
2008 

140 POKES. 240: GOSUB600: POKES. 0 
200 T=0=POKFei3,tB 
218 T = T hi 

220 GETfl*:IFP-t- THEN300 

238 T = 188: FDR I = 1 TOLENCX* ) 

240 Gl=niD*fX$ .1,1) 

250 lFG*<>ft4THFNLi-L-l-»G*:GOTO270 

253 POKES .252 

268 IFp.*""o fMrNPO-PO*100:GOSUB1800:f»*-" 

;GOrO300 
262 P0KE79G8.92 
265 PO=PDiUnLin%):PI=l 
267 POKES .0 

270 NEXT:Xf=Ll!L*-"' : GOSUBB00 
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300 IFT (100- KTHCN219 

305 IF T Ii> 00BG00 THENPRINT'T 2CN] DU 
PTt":P0KE36879 .51: F0RT=1 TD1000:NFXT: G0T02 
8Z0 

307 IFP1=0THEN:PG=PO UALCA"* ]: IFA* - ©"THE 
NFD=PO-100 

309 PI=0: [FPO<0rMENPO-0 

310 GOTO100 

600 PRINT 'THOPT3C 2CN3PO: :PO; X4SPC3HI: 
HI : PRINT "[ HOn 1MCNJTID: RIGHTtt TI * .3 3: PR 
INT ' r 8CNV TflB<2); 

610 PRIWTRIGHTtf rC/hK2BSPCJ .21-LENCX« 

>);Xi:PRINT I 3CU|| CVt U 3SPCJ = : RETURN 

1000 PM.ENCX* "l:X4 - TORO = lTOP-l 

1010 POKES. IN rfRUUfl 3*127* 1283 

1820 U*=PIGHTi(SIRif I N f f RND C 1 3x|l)1,IJ 

1021 IFU*= '10 t HFNU4 = 0 ' 

1022 Xt-Xi+Ui 

1030 FORI=ITOi00:NFXTI 
1LM0 NEXTO: POKE?. 0. RE TURN 
7000 P0KE650.8:PRIN7 TCI.R] 

2010 FORT If 010: POKES. 1 28: FORPMTQ100:NE 
X I : POKES .0: FORP - 1 TO 1 00 : NFX I' ! NEXT 
2070 PRINT' I CLRK SSFC3 IfiL- INUflSlONr 10SFC 
U 12C/U1 

2030 IFHirparHFNI-tl PO:PRINT T CNJ NY HI S 
CHRP ! * 



2010 PRINT' f CN] PO: PO . Hp Hj 
2B n/SEK INT rCNlDU SR,JGrE • =R1GHT1CX*.3); 
20SB PRINT T3CN1 I REUTFICOFFD = NYT SPJL 
2060 PRINT"! CN J t REU3F 3[ 0FF3 = INSTRUKTI 

oner 

20S5 PRINT" rCNl [ RC U3F5f OFF I = SLUT 

2070 GCTn*:irr>*<> ini'TOo r F3 1 anda 

*<> r F 5 1 "THEN2R/0 

2080 IFAt = IF5] rHENEND 

2085 IFfliT TF3J rnrN2l00 

20^0 At = :x«- PO -0:607010 

21M c PRINT"rCLR3I5SPC1Tftl.-INUnSIONC 10SPC 

2110 PRINT I CNJUU ^KAL FORHINDRE OFT 2SPC 
1FARLIGE TAL I e\S Nflflt 25PC]FREH TIL PIT 

2120 PRINT DET G0R DU UCP AT IND~TftSTE D 
E Tftt PER KOPl- ni.R nuu DIG. 
2I25 PRINT mm fJFR ER GflflFI[5SPCJ6 ftlWU 
TTER HflR DU KI.A Rf| OET 

pauir PRINT * rrWT 6IRCBSPcnM B0NuS 

214fl PRINT* CCNJC WC1TRYK EN TAST 'UAIT1 
538. UGPFOIB 




PLASH 
I NDSENDT OF 
KLAUS SIP10NSEN OG 
KLAUS ANDERSEN 
2800 LYNGBY 



100 REF1 ** KPS t KKA D . 5/1-85 x* 
I 10 A-RNDC0 ) 
120 TRAF300 

1 30 GRAPH I C0. 1 COLORE , 1 : COLORS , 1 

110 T - INT CRND( 1 3*2 1 3+25 

150 DEFFNFC X 3 = INT CRNPC 1 3*T J+l 

160 DEFFNLCX) = INTCRND[n*5}+3 

170 PEFFNXt X 3- INTCRNDt 1 3*1 2 3+8 

180 PEFFNYCX3 = INURNPC1 )*IZJ 

130 FORC=tTO500 

200 F^FNFCXJ: I FF> 16THENF =1 

710 C0LDR1 , F .FNL TX ) 

220 X=FNX£X): Y=FNYCX3 

230 F0RPi = lT02 

240 CHAR1.X.Y. TREU3CS/L3 

250 CHARt ,39-X ,Y, T REU3I S/1_ 3 

2GB CHAK1 .X.23-Y. TREUKS/L] 

270 CHAR I ,39-X .23— Y , CREUUSyLJ- 

280 0-X:X-Yt8: Y=B-8:NEXT 

290 NCXTC.:RUN 

300 PRINT"! H0P1 3t UHT J : 

310 CHAR1 ,0,12 , CHR1C27 3+ "T 

320 FORD-a r013:PRINTCHR*C27 3 LJ I NEXT 

330 PRINT T 2HOH3 

340 CHAR 1 .39.1 1 .CHRt C27 H 'B " 

350 FORD =1T0 1 1 : PRINT ' T CN 1 i NEXT 

368 PRINT T 2H0J1JT CLR j ": 



SLUT MED 

LOADINGPROBLEMER 




- Her er programmei alle Commodore 64 ejere far brug for- . . . 
sKrev den engelske fagpr esse 

Prografflrner med fast load op Iil 3000 baud giver ofte 
problemer, idel bandoptageren normatt arbejder med 300 
baud 

Wed AZIMUT 3000 kan du selv flnmdslille bdndoptagerens 
lonehoved til ai loade op lit 3000 baud- halt uden pr oblemer. 
Leveres komplel med software, specialskrueiraskkerog udfor- 
lig dansk brugsanvlsning. 

EKSTRA: Arcade game -Bandana City og teslprogram pa 
bflndets bagside. 

Din Commodore forhandler hardel nul 




r*»rme 5io forhandler anvises 
MUNKSGAARO 

Neno Sagade35 1 370 Kobe nnawn k 
Til. 01 -127030 



47 



Listning 1 

Til Commodore 64 



100 POKE532G9 .2*55: P0KE53287 . 1 : P0KF.53268 . 
B: P0KE53299 , 1 ; POKE53291 ,? 

1 1 0 FORI = 128TlH28i4 

120 Fopj^eruez 

130 RE ADA: PDKC I *63 t-J .A 

110 NFrfTJsPOKrzaiBi-I 12B,[;NEXT 

150 FORJ =8T04:POKC53248»Jx2 , 150:NE*T 

160 fi;-15B:B=nt 1 1 

170 P0KE5323 t * ,n: POKE5325 I .At POf<E53253 ,B< 
PDKF.53755 ,Bi PrJKE5325? .B 

180 PRINT f FLR K 9CH3C SXNICSyOH S/C3C 2SPC 

it ns/ars/j J 

130 FORI =1TT18:PKINT T 9CH]tS^BU 16SFCJ[S/ 
Bl : NEXT 

200 PRINT raCHUS/'J.U 16S/CJE S/KJ 

210 Ren sFRirre 

220 DATA 880.008.080.000.112.008.000 
238 DATA 112.000,000.112.000.000,218 
218 DATA 000,000,248,000.000.238,000 
250 DATA 0B0,238,000,R00,21S.000.000 
250 DATA 219.000,000.218,000.000,218 
270 DATA 000.000.219.000.000.239,000 
280 DATA BBI ,2S2 ,088.001 .252,000,003 
290 DATA 251,000.007,113.000,006,003 
300 DATA 000.006.003.000 .006.003.000 
310 RFPl SPRJTrt 

320 DA I A 000 . I L 2 .000 . 000 . 1 36 .000 .000 
330 DATA 136.000.080. 136. 000. 001 .004 
3t0 DATA 000.001,004.000,001.004,000 
350 DATA 001.004,000.001,00*1,000,001 
368 DATA 803.008,081.884.880.881,004 
378 DATA 080 .001 ,804 . 000 .00 1 ,804 .800 
380 DA T A 002.002.008.007,002,000,004 
330 DATA 081,000.008,112,128,003.148 
400 DA I A 12B ,00? ,004 , 128 ,009 ,001 , 128 
410 RCP1 SPRI Tl 7 

420 DATA 000.008.080.800,000.000,008 
430 DA 1 A 008.000.000.000.000.000.000 
418 DATA 00B. 000,000,000 ,880,000,000 
450 DATA 000.000.000,000,880.008.088 
450 OA FA 000.000,000.008,800.000.002 
470 DATA 080 ,005 .002 ,888 ,008.804 ,864 
480 DATA 088. 13B.E28.0Z0.081 .128.031 
490 DATA 032.032.018.036.032.804.181 
500 DATA 080. 000. iai. 800. 000. 032. 000 
510 REn SPRITM 

"520 DATA 800.008.000.000.008.000,000 
530 DATA 800.000,000.000.000.000,000 
530 DATA 000.000.000.000,000.008,000 
550 DATA 080.000.808.880.888,000,088 
560 DATA 800.000.000.000.000.804.001 
570 DATA 888,808.001.000.006,130,000 
580 DATA 819.004.064.888,136.864,017 
530 DATA 862.000.089.018.864,802,818 
GBB DATA" 864. 888. 074. 808. 000. 864. 008 
610 REH SPRITF"5 

620 DATA) 800.000.800.808,000.000.000 
630 DATA 888. A08. 080,888.888.808.080 
638 DATA 888.008.008.808.088.000.088 
658 DATA 080.088.088.888.888.808.088 
668 DATA 888 , 05*0 ,0BB ,000 ,000 ,806 ,003 
678 DATA 808.015.087,123.031.135,192 
688 DATA 831 . 143 .224 .831 .223 .224 .063 



770 DATA32. 22. 192. 144. 13. 32, 53, 19 

2. 681 

790 DATA32, 127. 192, 162. 3, 32, 232, 1 
92. 973 

730 DATA76. 8. 192, 36. 8, 0. 173, 0, 53 

7 

800 DATA220. 168. 8, 162. 8. 73, 176 1 
793 

810 DATA136. 73. 176. 1. 280, 74, 176, 1 
. 838 

828 DATA282, 73. 176. 1. 232, 74. 142, 2 
8. 321 

830 DATA192. 130. 21. 132. 36. 173, 28, 
132, 1826 

848 0ATA24 , 183. 2, 288. 141. 2, 208, 17 

3, 867 

858 DATA2I . 192. 24. 109. 3. 208. 141 , 3 

. 781 

868 PATA2B8. 173, 31, 28S . 74. 17&, 3, 7 

1, 917 

870 DATA1 44 . 3, 32. 1 35. 192, 32. 92, 13 

2, 832 

888 DATA32, 183. 192. 96. 173, 2, 208, 1 
41 , 952 

838 DATA0. 288. 141. 4, 288. 131. 6, 288 

. 316 

900 DATA141. 8. 788. 96. 173. 3. 288 14 

1, 378 

9 1 8 DATA! , 288. 23. 185. 11. 131. 5. 288 
. 703 

928 DATA141 . 7. 208, 141. 9. 288, 96, 16 

•5. 975 

93BDATA367, 141. 41. 288, 101, 162, 141 
. 42. 998 

940 OATA208. 74. 77. 18. 209. 141, 43, 2 

08 . 977 

950 DATA96, 173. 20. 192. 238. 12, 163. 
1 , 903 

960 DAIA205. 20, 132. 208. 2. 169, 255, 
ill , 1 197 

978 DATA28, 192. 173. 21. 132. 218. 12, 
163. 1819 

980 DATA 1 , 203. 21. 132. 209. Z. 163, 25 
5, 1053 

990 DATAI41. 21. 132. 162, 3. 168, 12, 1 
73, 865 

1 888 DATA2, 208, 24. 189, 28, 132, HJ 

2. 638 

1818 pA TA2B8 . 173, 3, 208. 21, 103, 21, 
192. 338 

182B PATA141, 3, 208. 32, 9Z . 13Z, 32, I 
88 , 808 

I030 DATAl 9? , 152, 72. 138. 72, 32. 127, 
192, 977 

1040 DATD32 » 232. 132. 173. 31. 20B. 104 
. 178. 1142 

1058 DnTO103, 169. 232, 232. 136, 288. 2 
88, 96. 1383 

1068 DATA160 . 8. 136. 200. 253. 202, 206 

. 248, 1315 

1078 0ATA9G r 1 . 96 



KDKTROCSUri FOR LISTNING 1 



638 DATA 255,224.831.255.223.807.255 


108 


121 


1 18 


52 


128 


185 


700 DATA 192,808.254.800,080,112,000 


138 


83 


148 


205 


158 


172 


710 REM MASKINKM3E DATA 


168 


4 


178 


18 


I 88 


133 


728 A= 39152: I =0: J=B 


138 


223 


200 


167 


218 


182 


738 F0RK=8T07; RCADB; TF6=-1THPNGDSUB758: S 


2 28 


153 


238 


177 


248 


183 


YS43I52: END 


258 


193 


260 


137 


278 


1B3 


738 PO(<EAtI ,B: 11 + 1: 1 =J-t-B: NE^T : G0SUB75B: 


280 


178 


798 


198 


380 


173 


GDT0738 


310 


183 


328 


169 


338 


188 


750 READASi IFASOJTHENPRJNT PFIL I OATAS 


338 


165 


358 


166 


360 


169 


ETNING : PEEK163)+PEEKC64)X256:END 


378 


165 


308 


167 


338 


133 


?60 J =8: RETURN 


488 


214 


4-10 


184 


328 


155 



48 



130 


155 


160 


157 


130 


194 


520 


J 55 


550 


155 


580 


215 


610 


187 


6.1 B 


155 


670 


204 


700 


182 


730 


136 



140 


155 


470 


184 


500 


171 


530 


155 


560 


160 


530 


204 


620 


155 


650 


155 


680 


203 


710 


207 


740 


122 



45B 


155 


480 


213 


510 


186 


540 


155 


570 


166 


600 


186 


630 


155 


660 


164 


690 


218 


720 


227 


75B 


129 



760 


244 


730 


85 


820 


72 


850 


16 


8BB 


137 


910 


11 


340 


151 


970 


223 


1000 


28 


1030 


199 


1060 


15 



770 


78 


800 


228 


830 


228 


8G0 


97 


890 


23 


920 


99 


9*50 


et 


98B 


123 


1030 


136 


1040 


9 


1070 


87 



780 


134 


810 


38 


840 


81 


870 


83 


900 


96 


930 


225 


960 


227 


990 


125 


1020 


80 


1050 


82 



Listning 2 

Til Commodore 64 



100 pi = 49152: I =0: 1=0 

110 FORK -0TO7: RCADB: !FB=-1THENGOSU01 30: S 
YS49152: END 

120 POKEfrM ,B: T=Iti: J *J + E3: NEXT* GDSU01 30: 
&DTD! 10 

130 READ AS: tfflSOJTHFNPRlNr FE1L I DflTflS 
FTNING : PErKt631+PEEKC64)*256:rND 
140 J=0: RETURN 

150 DflTft32, 9, 192. 32, 192. 193, 76, 42 
. 768 

160 DATA193. 120. 169, 127, 141, 13, 220 
. 1 63 . 1 1 52 

170 Dflrn46, 141. 20. 3. 169, 192, 141, 2 
1 . 733 

180 DATfl3, 169, 129, 141, 26, 208. 88, 1 
63, 333 

130 ppTPB, 133, 169. 133, 16B, 163. 3, 1 
33. 308 

200 PflrAI67. 1G3. 4. 133. 179. 96. 169, 
1 . 918 

2IB0flTfll4l, 2S. Z08. 173, is. 208. 201, 
t30. 1104 

ZZ0 DflTflZ40. 13. 169. 0, 141. 22, 208, 1 
63, 362 

230 Pflmi30. 141. 18. 208. 76. 85. 192, 
169, 1019 

2^0 DfUflfl. 5. 168. 141. 22. 20B. 169, 20 
2, 915 

250 DpTfll41, 13. 208. 133, 170, 173. 17, 
208. 1068 

260 DATM1. 127. L41 , 17. 200. 173, 13. 
220. 940 

270 PWTA41, 1, 240. 3, 76, 49, 234, 76, 
720 



400 DOTni60. 38. 165. 171, 24. 105. 40, 
133. 836 

410DArfll7l, 133, 173. 133. 175. 133, 17 
144. 1239 

428 PATHS. 230. 172. 230. 174. 238, 176, 
230. 1458 

430 onTm7e, 230. 173. 230. 177. 177, 17 

I , 145 . 1481 

440 DfHm73, 177. 175. 145. 177, 136, 16 
• 245. 1244 

450 PATA202, 208. 213, 134, 169, 162, 3, 
164. 1261 

460 DATP.163, 169, 5, 133, 172, 163, 217, 
133. 1167 

470 PPT0176, 169, 104, 133, 171, 133, \y 
5, 165. 1226 

490 Pf»rm7t. Z4. 105. 40. 133, 171. 133, 
175. 952 

490 PflTAm. '* . 230, 172. 230. 176, 152. 
73. 1181 

500 PflTfl33, 168. 177. 171 . 72. 177. 175. 

164. 1143 

510 PfHP.163, 145. 175. 104. 145, 171 , 20 
2, 16. 1127 

520 0flTfiZ22. 96. 32. 106. 132. 32. 90. I 
33, 363 

530 Dfirfll4<». 39. 138. 240. 245. 133, 180 
. 198. 1317 

540 DftTfll?3. 208, 239. 169. 8. 133. 179. 

165, 1280 

550 DATA1B0, 49. 11. 165. 167. 201 . 7 2 
40, 1019 

560 PATA225, 230. 167. 76. 42. 133. 16S. 
167. 1265 

570 DATA201 , 248, 240. 214. 138. 167, 76 
. 42. 13B6 

580 P(4Tfll93. 96, 173. 0. 220. 162, 0, 74 
. 918 



2BB pflTA 188 . 


254. 


165. 


170. 


240. 


252, 


16 


530 PPTP74. 


74 . 


176 


1 , 


202 


74 


. 176. 1. 


9. 0, 1438 














778 














290 DflTp.133 . 


I 70 . 


165, 


168, 


24, 


101 , 


167 


600 PflTfl232 


74 


96 


5. 


32. 


32 . 


68, 


69, 


. 168. 1096 














6*38 
















300 PfUfl41 . 7 


. 133 


, IBB 


. 152, 41 


. 8. 


208 


6 10 Pftm7B, 


78, 


69 . 


32. 


6B. 


69 . 


76. 


69, 


. 758 














533 












310 DATfll . 96 


. 162 


. 9. 


169, 


5, 133, 172, 


620 P(4Tn78. 


32, 


65, 


86. 


32, 


83 . 


75. 


74. 


?47 














525 














320 PPTfi 1 33 , 


1 74 , 


169 . 


217. 


133. 


176, 


J3 


630 PflTfl69. 


82 , 


77. 


63. 


78. 


32 . 


83, 


84. 


3, 178. 1313 














574 














330 DP-T0169 . 


104 . 


133. 


171 . 


152. 


16. 


49. 


640 PATP65, 


65 . 


82, 


32. 


83. 


84 . 


73, 


76, 


160, 954 














560 












340 DATA 255 . 


165. 


171 , 


24, 


105 , 


40. 133, 


650 DATA76 r 


69 . 


32, 


32. 


158 


79 


■ 71 


, 32, 


171, 1064 














549 








350 DATA 133, 


173. 


133, 


175. 


133. 


177, 


14 


660 Dprptee. 


63 . 


78. 


78, 


63. 


32 . 


68. 


63, 


4 t 8, 1B76 














531 












368 PATAZ3B . 


172, 


230. 


174. 


230 , 


176, 


23 


670 Pf»Tf=t76. 


63 . 


78. 


32. 


5. 83. 


57. 


82. 4 


0, 178, 1620 














92 












370 DP.TR230 . 


173. 


Z3B. 


177. 


200 . 


*77. 


17 


680 DATA79. 


76, 


76, 


63. 


B3. 


158 


. 32 


. 77. 


3, 1^5, 1505 














650 
















380 PATA171 . 


177. 


177. 


143. 


175, 


132 . 


39 


630 PATA69. 


68 . 


32, 


63. 


78. 


32. 


156 


. 74 . 


, 208, 1 284 














578 














390 PRTR243 . 


202 . 


208 . 


211. 


132. 


169. 


24 


700 PATA79, 


83 . 


83. 


84. 


73. 


67. 


75, 


32, 


0, 45, 1450 














582 











•!9 



710 DflTfH69, It?. 32. 210, 255. 160. 10, 
162. 1115 

720 DflTn0. lBT. 193. 32. 210. 255, 

232, 1218 

730 Dflrfl221 . 11. 208. 215 . 136 . 208. 210 
. I 60 . 1 162 

710 PflT03. 162. 0. 109. 118, 133. 32. 21 
0. 953 

7S0 DeXRZSS. 232, 221. 11. 208. 215, 136 
, 208, I -552 

760 DOTn210. 160. 2, 162. 0, l 83 , 107, 1 
93, 1053 

7.70 DO 1(132. 210. 255. 232, 221. 11. 208, 

215, 1117 
780 DnT0l3B. 16. 210, 96, -1. 188 



KONTR0L5UI1 FOR LISTNING 2 

100 227 110 128 120 106 

130 129 118 21-1 150 51 

160 68 170 71 180 153 



190 


139 


200 


111 


210 


5 


220 


138 


230 


211 


2ie 


78 


250 


23 


260 


178 


270 


187 


280 


31 


298 


82 


300 


10 


310 


253 


320 


132 


330 


237 


310 


15 


350 


38 


360 


116 


370 


120 


3B0 


5-8 


390 


61 


400 


178 


418 


128 


420 


13 


130 


135 


410 


90 


450 


22 


4 60 


11 


470 


129 


480 


221 


190 


223 


500 


17 


510 


?2 


528 


111 


539 


63 


510 


51 


550 


175 


560 


33 


570 


38 


580 


36 


53B 


252 


600 


206 


610 


233 


620 


21 1 


630 


228 


618 


209 


658 


6 


660 


232 


G70 


169 


680 


1 9 


690 


19 


700 


226 


710 


15 


720 


225 


730 


67 


710 


89 


750 


76 


760 


171 


770 


16 


780 


7 



Turboprogram 

Til Commodore 64 



100 H= 2013: I-C: J =0 

118 F0RK=8 T07: READS: IFB=-1THENGOSUB130: G 
0TD115 

120 rOKrflH l-*l M: J =J+B: NEX T : GOSU0130: 

Goroiie 

130 RFflDflS: IFBSO J rHENPRINF FFIL 1 DflTBS 
FINING : PEfiKC 63 } tPCEKC61 3*256: FHP 
110 .1=0: RE TURN 

115 . 1 ; ITJKE11 ,0: FDKE15 . 1 01 : FOKE16 . 

I t :SYS206l: SrtUFT TURBO. OB J ' : CMD 

1 50 DfTmU. 0. 0. 0. I5S. 58, 4.8. 51. 32 

9 

1 60 f.irvmi9. B. 0. 0, I60. 0. 169, 31 , 17 

2 

170 Dr*T0l33. 133. 16^. 8. 133. 118. 169. 
0. 891 

180 Uflmi33. 111. 169. 2Z1. 133. 112. 17 
7. 139, 1258 

190 nflrniifi. mi. 230. 139. 209. 7, 230, 

110. 1235 

708 onrri230. 111. 208. 2, 230. 112, iss. 

110. 1258 

210 unrr»20l, 10. 208. 231. t65, i39. 201 

. 187. 1315 

220 onrn288. 22a. 162. 80. ibs. ib7, 10, 

157. 1271 

230 D0mi67, Z. 202. 16. 217. 169, 1 67 . 
Ml . llll 

240 prune. 3. 163. 2. 111, 9. 3. 162. 19 

7 

250 nnr^B, iss'. u, n. 210, s, 32, 210, 

635 

260 Dfirn259. 232, 208. 215. 96. 1 33 , 98. 
163, 1136 

270 DfiTfiQ, 133. 97. 70. 98. 165. 1. 11, 
613 

280 PBTfl217. 32. 39. 221, 162. 7. 206, 3 
Z, 919 

290 Oft[ft20B. 202. 208. 250. 206. 32. 288 
. 231, 1518 

300 DATA9 . 8. 32. 12. 221. 162. 11. 198 . 
683 

310 Df»rfl97. 208. 221. 96. 202. Z08 . 253. 

111, 113Z 



320 OMW. 162, 5. 206. 32. 209. 202. 20 
8. 1B31 

330 IWn250. [33, l, 96. 165. 1 . 11 . 15. 
702 

310 DfVTfM33. I, 173, 32. 208. 72, 173, 1 
7 . 809 

350 0^0209. 41. 233. 111. 17. 208. 282. 
208. 1261 

360 Dmn253. 136. 208. 250. 120. 163, 12 
8. 32. 1296 

370 Uprr^B. 221. 152. 7. 20B . 132. 0. 208 
. 993 

380 PATI^H . 202. 152. 32, 0. 221. 162, 
7 t I023 

338 tinrR20Pl. 708. 217. 282, 282. 32. 0. 
221, 1315 

408 CflTni77. 172, 32. 0. 221. 230. 172. 
208, 1215 

4iannrA2. 230. 173. 162. s. 165. 172, t 

97. 1107 

420 Df»TfU71, 20B. 237. 165. 173. 197. 17 
5 , 208. 1537 

430 PATH231 . 162, 23, 183. 116, 221, 157 
. 65. 1203 

410 DBTR3. 202. 16, 217. 76, 65, 3. 32, 
611 

150 DflTfl733. 2. 1 40. 160. 2. 32. 117, 25 
2. 971 

460 t>Arfl200. 132. 192. 101. 111. 32. 208 
. 169. 117S 

470 Dnrfl87, 111. 36. 3. 169, 21 1 . 111. 3 

7. 855 

'180 Dnrn3. ?e. 228. 2. 0. 0. 0. a. 389 

*>30 OBTfW . 0. 8. 0. 8. 0. ©. 0. 0 

■500 DATflB, 8. 0. 8. 169. 8. 133. 97. 187 

518 Ofim32, 108. 3. 102. 38. 206. 32, 20 

8. 781 

528 DflTfU 98 . 37, 208, 211. 165, 98, 96. 
162. 1268 

530 DflTfll. 169. 16. 11, 13. 220. 210. 25 
I , 951 

510 DftTfll73. 13. 221. 112. 7. 221. 162. 
25, 961 

550 DfUni47. 15. 221, 71. 71. 36, 131. 1 
92. 918 

560 0ATB173. 17. 208. 11. 233. 111, 17, 
208. 1041 

570 DATP173. 32. 208. 72. 136 , 208. 253, 
202, 1 284 



50 



580 DnTn?0B. 250. 120. 163. 7. 141. 6. 2 


980 DfirPl226. 


32 , 87 . 226 . 32 . 6 . 


226. 32 


21, 1122 


. 86? 






590 DArn232, 32, t00. 3. IB2 , 98. 165. 9 


990 fJf»Tni4. 226. 32. 108. 3, 132 


. 133. 1 


9, 030 


33, 787 






608 Dnrn20i. L2s. 208. 215. 32. si, 3. 2 


1000 uointi0 


37. 14. 726. 32. 108, 3, 1 


Bl, 1033 


32. 687 






610 CAmi29, 210. 249, 160. 0. 196. 38 . 


10 IB unrnm . 


133, 112. 36, 32. 138 . 173 


208. 1279 


. 76. 931 






620 CflTn232, 37, 81. 3. 200. 208. 216. I 


102B onmzi7. 


103. 32. 115. 0. 201 . 118. 


63. H71 


208. 1131 






638 Dflm0. 133. 45. 169 . 0. 133. 16. 169 


1030 Dnrnis. 


160. 1 . 177. 127. 201 . 174. 


. 635 


21.0, 1098 






640 OftTOe. 133. 171. 169. 8, 133. 175, 3 


1010 DHTA13. 


136 . 281 , 61. 210. 8. 169. 


Z. 816 


119. 373 






658 Dnrnsi . 3. 145. 45. 230. 45. 20s. 2, 


IP5B onrfl32 . 


121 . 0 , 76. 231 . 167, 32, 7 


759 


31 , 890 






660 CflTl923B, 46. 165. 16. 137. 175. 200. 


1060 DfUfl2. 32. 106. 225. 32. 65 


3 , 32, 


239. 1306 


497 






678 Dnmi65. 45. 197. 171. 70S. 733. 110 


107B Dflrn231 


7. 32. 128. 225. 169. 172. 


. IFB, 1322 


32. 991 






680 Pnm2. 32, 147. 252. 169. 87. 111. 3 


108B UnT0216 


255. 169. 15. 133. 


103. 32 


6, 866 


. 143. 1147 






698 pnrn3. i69. 211. 141. 37. 3. 133, 19 


1096 unrfl2i6 


32 , 231 . 2. 76 . 7 . 


226. 76 


2, 913 








700 Pfl[niB4, 111. 32. .208. 88, 32, 36. 1 


1 1 00 nnrn23i 


167. 120. 165. 1.11. 253. 


66. SG7 


133, 1114 






?10 CflTnB. 0. 8. 8. 0. 0. 0. 132. 132 


1110 Dflmi, 96. 165. 1, 3. 2, 133. 1. 40 


720 OnTfU13. 32. H5. 0. 32. i IS. 0. 162 


8 






. 599 


i 120 DOTnee . 


96. 5. 84. 85. 82. 65. 79. 


730 Uflrni9. 1 89. 44. 226. 157. 65. 3. 20 


595 






2. 935 


1 130 UfiTn32. 


65. 75. 84. 73, 86. 


73, 83. 


240 DArfll6. 247. 76. 239. 2. 161. 1B3. 2 


571 






10. 1 167 


Mia norn69, 


82, 81. 154, 13. 13 


. 83, 65 


750 DflTfU7. 150, 0, 177. 187. 153, 173. 


. 563 






221.. I088 


1150 Dnrnse. 


63. 31 . 61 , 04. 85, 


82, 66, 


760 Dnrn20B. I 36. 183, 708. 246. 169. 32 


627 






. 153, 1387 


i it>0 i;nrn79. 


83, 65. 86. 69. 13, 


83, 65. 


770 pnrni75. 224. 200. 192, 16. 208. 21s 


543 






. 169, 113Z 


1170 DmOBfc. 


69 , 61 . 61. 84 , 85 . 


82, 66. 


788 t)A mi 23. L11. 36. 3. 169. 3. 111. 37 


597 






- 653 


ue-0 uorn73. 


83. 65. 86. 63. 32, 


77. 69, 


730 Dfirr>3. 165. 133. HI, 35. 225. 165. 


560 






1-10. IB13 


1 13R nnrn68. 


32. 65. 85. 84. 79 , 


83, 81. 


800 PfUrUII. 39. 225. 165, 141. 141. 13. 


580 






225. t 170 


i2c*0 pomes. 


82. 91 . 13. 83. 99. 


83. 53, 


810 [10(0165. 117, HI, 47. 225, 162, 0, 


552 






1 65. I047 


1710 UflTfl56. 


52, 53. 19. 32. 70, 


71 , 69, 


»70 unrmi3, 240. 2, t62. b. 160. 0. ies 


155 






. 907 


1220 0^82, 


78. 69. 82, 32, S4 . 


85. 02, 


8 30 Pflm35, 226. 1 53 . 99. 225. 208. 232. 


591 






19? , 1362 


1230 nAlA66, 


79. 13. 0 . - 1 . 150 




310 Dmri6. 208. 241. 162. 1. 134. IB6. 1 








31, 1075 








350 DATfU85. 202, 189. B. 207. 157, 0. 2 








32 . 1 172 








850 0nrni89, t75. 221, 157. 0. 2a7. 232. 








224. 1 408 








870 |lflfmB7. 208. 239. 131, 183. I69. 0. 








I 33. I 253 


KONTROLSUCl FOR fURBD PROGRAM 




880 I3firmB7. 169. 207, 133. 188. 165, 15 








7, 133, 1339 


100 173 


110 70 120 


I 06 


890 I)|-»fn93. 159. 8. 133, 157. 169, 36,' 1 


138 129 


140 244 H*> 


105 


33. P9S 


158 83 


160 81 170 


141 


900 Pnrnl77. 169. 3, 133. 173. 162, 38, 


180 130 


1 90 6 2B0 


7 


160. 10 10 


210 67 


220 32 230 


227 


910 Dftlfl3. 76, 233, 2, 165, 39, 133, 157 


710 35 


250 2Z3 Z60 


18 


- 871 


270 198 


280 97 230 


68 


928 t)flini62, J, 18], 1 39 , 143. 172, 202, 


300 251 


310 31 320 


115 


15. 1024 


330 226 


340 82 350 


19 


930 PATfl213, 232, 183. fl. 232, 157. 0. 2 


160 77 


370 24 380 


IBB 


07, 1266 


390 283 


100 219 H0. 


IB0 


910 [3fiTf»232, 721. 187, 208, Z45, ?6 , 55, 


<»Z0 148 


«30 32 *10 


188 


221. I 151 


150 79 


160 66 170 


93 


950 I.)firfl32. M?. 165, 76, 171, 157. 76. 


480 l?3 


490 147 500 


29 


123, 356 


510 71 


520 15 530 


75 


950 Dnrniei. igz. 3. i8i. 43. 143. 133. 


540 IZ5 


5^0 147 560 


228 


2B2, 1013 


570 23 


580 165 590 


79 


970 D71TA16. 743, 169. 0. 133. 183. 32, 6 


600 173 


610 248 620 


173 


. 78B 


630 «»8 


640 78 650 


241 



51 



650 


40 




86 


7Z0 


19 


750 


235 


780 


28 


310 


ZZ5 


910 


173 


870 


33 


300 


223 


330 


is:? 



670 


75 


700 




730 


100 


760 


88 


790 


228 


328 


22 


850 


175 


888 


148 


910 


56 


910 


33 



683 


97 


?10 


95 


710 


1 32 


770 


73 


300 


10 


830 


26 


860 


28 


89B 


160 


920 


224 


950 


202 



960 


226 


990 


131 


1020 


219 


1050 


73 


1080 


28 


1110 


31 


1110 


251 


1 1 78 


279 


1200 


2ll 


1730 


107 



970 


16 


I 000 


72 


I 030 


212 


1B60 


18Z 


I 030 


251 


1 1 20 


m 


I 15R 


226 


I IH0 


727 


I 71 0 


206 



980 


42 


1010 


188 


I 040 


116 


1 070 


131 


I 1P0 


215 


1 130 


213 


I I 60 


220 


I 1*0 


277 


12ZB 


223 




KOOROINflT SYSTEM 



IND5ENDT AF 
SEBASTIAN HAIWER 
PRINSESSE IlflRIES ALLE 15 
1908 U 



0 REfl XXXXXXXXXXXXXXMXXXXXXXX 

1 REM * PROGRAH ' KOORDINfiT ' * 

2 pF.fl x py SEBASUPN HAWK * 

3 REH xxxxkxxx xxxxxxmxxxxxxxx 

I TRPP U5 

5 PRINT TCLR] 

6 COLOR I ,2 

7 COLORS. I :COLOR1 ,l 

8 REPl «x* TfGN KQOROINATS. 

9 GRAPH IC2.1 

IB DRAWl .0.80TO320.SB 

II DRflUl .160.0TOI60.160 

12 FQRA=0TD160SrEPS 

13 PRAUl . 156 .ftTOl61 .A 
\A NEXT A 

15 FORA=0TO320SrFP8 

16 0RAU1 .A.74T0A.94 

17 NEXTA 

18 CHARl .39.10. X" .0 

19 CHftRl .20.0. V .0 

20 REM "xx LAt'^ ORURE 

21 PRINT rREU.lKOrWNDO:rOFrr 

22 INPUIKM* 

23 IFKM*=' CIRKEL ' THFN31 

24 JFKM*= I TNI F THFN55 

25 IFKPI*= p UHK.r THEN78 

26 IFKfl* =' TKST~ T HFN83 
I? IFKP1*="'1AL" T|HEN105 
28 IFKf14~ GLEP1 THENRUN 

23 PRINT 7 R£U] IKKE FORSTAAET K OFF ] :PKIN 

T 

30 GOTO20 

31 REM **x CIRKEL 

32 PRINT X: : 

33 INPUTX 

34 PRINT ft ■ - 

35 INPUTY 

36 PRINT X-RAD.: : 

37 INPUTXD 

38 PR INT V-RAQ . : J 
33 INFUTYD 

10 PRINT CIRKELBUE START: : 
*1 INPUTCB 

42 PRINT CIRKELBUE SLUT : : 
*3 INPUTCS 

11 PRINT MflELDNING: : 
1-5 INPUTCH 

16 PRINT^KANTER: : 
■17 INPUTK 



18 PPINT' SLETTECJfl=0/HEJM ): : 
13 INPUT CO 

50 GOSUB1Z1 

51 XD=XD*B 

52 YD=YD*8 

53 CIRCLECO . X , Y ,XD , YD ,CB , CS , CH . 360^K 
51 GOTO10 

55 REH xxx LINIE 

56 PR1NT"X1: ': 

57 INPUTX1 

58 PRINT'-Y]: : 

59 INPUTY1 

60 PR3NT'X2: : 

61 INPUTX2 

62 PR J NT Y2: ! 

63 INPUTYZ 

64 PR J NT' SLETTECJA=0/1SEJ = 1 )t i 

65 INPUTCO 

66 Yl =-Yl 

67 Y2=-Y2 

68 X1=X1*8 

69 X2=X2*8 

70 Y1=Y1*8 

71 Y2=Y2*B 

72 XI=XltI60 

73 X2=X2+160 
71 Yl=Yl+80 

75 Y2=Y2+80 

76 DRrtUCO.Xl .Y1T0X2.Y2 

77 GOTO10 

78 REPl *xx PUNKT 
73 PRINT X: 

80 INPUT* 

31 PRINT' Y; ; 

82 INPUTY 

83 PRINT"SLETTE(JA=0/NEJ = 1]: I 

81 INPUTCO 

85 G0SUB121 

86 DRnUCO ,X-4 .Y-1TOX-M ,Y*1 

87 DRflUCO.Xt-4.Y-4TOX-1.Yt1 

88 GOTO10 

83 RED *** TEKST 

90 PRINT X: : 

91 INPUTX 

92 PRINT V! : 

93 INPUTY 

34 PR INT" TEKST: 

95 INPUTflt 

96 PRINT' REUERSE t Jfl = l v*NE J =0 Ji : 



S7 INPUTRV 


1 1 3 


PFUNTCO.X.Y 


38 PRINT' 5LETTE(JA=0/NEJ=1 ); i 


111 


GOTO10 


33 INPUTCO 


115 


REM xxx ERROR 


100 Y=-Y 


lie 


SCNCLR 


101 X=X+20 


n? 


GRflFHICa 


102 Y=Ytl0 


ue 


PRINT DFR ER OPSTAAFT FN FF II 


103 CHflRCO ,X, Y.A*.RU 


119 


PRINT TILKALD FN PROGRPMP10R ! 


101 GDTOIB 


120 


END 


105 RCH nflL 


121 


REfl *** BEHANDLER 


106 PRTNT' X: : 


122 


Y=-Y 


107 INPUTX 


123 


X=X»9 


108 PRINT Y: : 


124 


Y-Y*9 


103 INPUTY 


125 


X=X+160 


110 PRINT SLETTE(Jfl=8/NEJ=l ): : 


126 




111 INPUTCD 


127 


RETURN 


112 GOSUB121 





Tipsprogram del 4 
Til Commodore 64 



10060 Pl»= r7S/*3t C/R3C 3S/*][ C/R3t3£/*JC 
C/RK3S/?]ir;/RJt3S/*][C/ftH3S/7cHC/RJ[3S 
s*Jt C/RJC 3S/*K CxRJC 3%s*K C/Rli 3S/*3[C/-R 

ir.3S/*uc/sj - 

10061 P2* = "f 75y-xKS^cK3S/JtHS/i3C3S/**]C 
S/T Jt 3S/*lC S/t H 3S/*U 5/T]T 3S/* ][ S/t][ 35 

][ S/t ][ U Sy*3E 3S/^e][ S/iOC 3S/* H S/"f 

U3S/*){X/VJ 

£0062 ?3% = "f?S/xltC.sEU 3S/Jt][ C/E 3 13S/X 3 1 
C/E.1C3S/*UC/EU3S/»]Cr/E]C3S^JCC/E]C3S 
H C/E 3C 3S/*3C CXE K 3S/*3C C/E3C 3S/*3 [ C/E 
H3S/*HC/X3 

13312 IFLENtREM II 3 J -3THCNER* C I 3=ERS(IJt 
HID* CHE* (HE 3 , 1 ,1 ):HE=HEtl ! NEXT 1 1 , 1: GOTO 1 
0208 

I 6000 HZ^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
16001 REH PR1NTERUDSKRIFTER 

16003 RtflXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

16010 PRINT r CLRJ :X = 1! : Y = 2: GUSU020000:p 
RINTTREU] PRJNfERUDSKR IFTER " 
16020 X=ll: Y=6:GDSUB28B00:PRINT 1> UDSKR 
TFT EGET 0KUG 

16030 X=U : Y=8: GOSUB200B8; PRINT 2> KUPON 
UD5KRIFT DT 

16100 X=ll: Y=18:GOSUB20008:PRINT 8> HOUE 
DUENJU" 

16110 X-0: Y=20: GOSUB20000! PRINTST* 

16120 X = l I : Y-22! GOSUB20000? PRINT TREU J 1 

NDTftST UALG 0-2 ' 

16138 GETQi: IFn* = TTCNI6I3B 

161*8 nx-UflLCQi 1: IFO* -B THrNlBZBB 

16150 OUQKGQ TOT *2BB. 16999 

16200 Rinxxxxxxxnxxxxxx xxx *xxx x xxxxxxxx 

16201 REM PRINTUDSKRIFT ENKELTRf KKER 

1 6203 ft£r\xxxxxxxx<xxxxxx xxxxxxxxxxxxx xxx 

1 621 B OPEN 1.4: 0PEN6 ,1.6: 0PEN3 B 1 , 3 : PR INT « 

3,CHR*( I 12 ):PRINr»l ,rHR*f 117) 

16220 FOR MTOER^TEPlfl: I*=1NTC C 1+9 )/lfl 

1x10-10 

16230 PRINTM .CHRtt 1 4 )' KUPON MR. INTCC1 
+ 9)/M0):PRINTi«l ,CHR*(15 J 
16235 PRlNr»6,CHR»(22) 

1621-B PRINI>1 .P1*:PRINT«1 . RK.NR. CS/-3 
1 2 CS/-3 3 1 CS/-3 5 CS/-) 

6 CS/-3 7 CS/-] 8 fS/~] 9 CS/-)10 CS/-] 
16250 PRINT"!. KAMP NRt S/- J 1 XZC S/~ 3 1 X2[ 5 
/- 3 1 X2i S/-J I X2[ S/-3 1 X2C S/- J 1X2C S/- ] 1 X2C. S 
s- 3 1 X2[ S/- J 1 X2[ S/- ] 1 X2C S/- 3 
16268 PR I NT "I .P2* 



16270 FORJ=1T013: IF J =10RJ =?ORJ = 10THENPR I 
NT«1 ,P2$ 

16298 FORII=1TO10 

16295 IF I At 1 1 >ERxTHENTEl= f 3SPC3C S/- ] ' : G 
OTO16310 

16230 TEt=!1IDlCERitIfl+n J.J.I J:GOSUB1630 
0 

16308 IFII=1THFNFA*= [ 25PC3 +RIGHT*CSTR* 
f J }.2)t T 3SPC]rS/-)'-*TE*: NEXT II: GOTO 1632 
0 

16310 PR* -PA*+ TE1: NEXTI T : PRINT"! . PA* 
16320 NEXT J ; PRINT" I ,P3i: PRINT" I : PRINT "1 
1 6330 IPC 1NTC ( I f3 )/10 3AND3 )^0THENPRINT»«1 
,CHR*(t2 3 
16310 NEXT I 

1 6900 REnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

16901 REJ1 TEGNKONAJERTFRJNG FOR PRINTER 

1 6303 Rfir\xx-*xxxx*xxxxxxxxxxxxxxxxxxxxxx 
16310 IFTE*= 1 THENTE* -' U 2SPC3C S/-] ; RE 
TURN 

16920 IFTEt- Z THFNTE*^ T2SFE]2[S/-3 iRE 
TURN 

16330 IFTEi " X TMFNTE*= X [ S/*-J : RETURN 

1 6998 PRINT" 1 : PR I NT»6 .CHRU21 ): CLOSE 1 1 CL 
0SE6:CLDSE3 

16999 GOTO10200 



<ONTROLSUN FOR TIPSPROGRArt DEL 4 



10068 


253 


1 896 1 


157 


18062 


4 


16800 


123 


1600I 


214 


16083 


123 


16018 


211 


16020 


?\ 


16030 


250 


16188 


27 


I6l 10 


56 


16120 


71 


16130 


232 


16110 


106 


16150 


133 


16208 


123 


16201 


181 


16283 


123 


16210 


140 


16220 


87 


16230 


143 


16235 


1 18 


16210 


227 


16250 


239 


16260 


155 


16270 


221 


16280 


251 


16285 


19 


16298 


216 


16300 


178 


16310 


181 


16320 


168 


16330 


72 


16310 


283 


16900 


123 


16301 


198 


1 6903 


123 


16310 


223 


16320 


225 


16338 


15 


16998 


163 


16399 


121 



§3 




Tsndstikspfl 

Et sjovt lille spil 
forklarende. 



der er helt selv- 



Snake Hunt 

Dette spil kraaver et Comal 80 mo- 
dul og er lavel lor 2 spillere. Man 
skal slyre sin slange rundt pa 
skasrmen uden at ramme mod- 
spilleren eller sig selv. Man skal 
prove at spise prikkerne eller luk- 
ke den anden spiller inde. Vinde- 
ren er den, der forst nar 500 
points. 

Tekstbehandling 

Et fornemt tekstbehandlingspro- 
gram til C64 rned Comal-kapsel. 

Trykkes pa RUN/STOP, vil kom- 
mandolinien sporge ESC-kode? 
og der findes folgende mulighe- 
der: 

A = Afslut 

H = Slet gammel tekst, hent ny 

M = Hent ny tekst 

P = Printer udskrifft 

F = Find deltekst (den seger kun 

ffra den linie cursoren stod pa, da 

der blev trykket Run/Stop) 

T = Top tekst <cursoren flyttes) 

B = Bund teksl (cursoren flyttes) 

S = Slet tekst (et afsnit af tek- 

sten) 

I = Indsset linie 
O = Slet linie 
D = Disk katalog 
= Blok funktion 
F1 = Saatter og sletter tabulato- 
rs. 

F3 = Flytter Curser til tabulator- 
stop 

F5 = Virker som RETURN 
F7 = Flytter cursoren til 1. positi- 
on pa samme skaarm og linie. 

Tal invasion 

Et lille sjovt selvforklarende pro- 
gram, hvor del gaalder om at vsere 
vaks pa fingrene og taste de tal, 
der kommer frem pa sksermen. 
Sjovt fundet pa. 



Wimbledon 

Et kasmpeprogram af meget hoj 
kvalitet til VIC-20 med en 16K ud- 
videlse. 

Programmet er for to spillere, 
hvoraf den ene bruger joysti ck og 




den anden tasterne QWE, AD og 
ZXC samt Shift. 

Boldens retning er afhaengtg af 
retnlngen af ketcheren i slaget. 

Ved at trykke pa SHIFT/Fire i 
selve slaget, kan man lave en 
blod kort. 

Spillet er el taktisk spil, hvor 
det gander om at have overblik. 

Koordinatsystem 

Et selvforklarende program tit 
C16/Plus 4-, hvor man kan operere 
med det »normale« koordinatsy- 
stem. Udmasrket program lavet af 
Sebastian Hammer. 



E. 
EDb 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 



EDB linie pa efterskole 



Tog po den intemattonoie efterskole. 
BUSTRUR 



En uddannetee HI at blive voksen. med 
undervlsnlng p6 HPnrveou og 
pfogrammsMinle- 



Oe*i Ifilptnaiio'ule Eflwskule or en 3 Ihg utidanwKe lur una* iwUtm tb og 18 if 

MrhwldnrLOFT SLORtr VERQ£N VENTE fl U nderv umn 9 pS HF .niveau ami 
studtereisetil Afnka 

? i» header STOL PA EGNE KRrtFTER. Undervrimng pi Hf-niveau. Et sludie 
ar wmmen mM unge tra Atrlha pa udvekslmg 
_ 3 ar heddcr OEN NV Tip VrKterviining pa HF niveau med moderne tekno* 
t L ,oqi - tfl0en * kal> °9 moral wm hovedfag, herunder en Hudicrejw? til USA 



EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 
EDB 



PROGRAMM0RLINIEN ER EN LINIE PA SKOLEN FOR 
ELEVER MED S^RUG INTERESSE FOR EDB PRO- 
GRAMMER! NG OG DATATEKNIK. 

k PROGHAMM0RLINIEN har undetvuning . datalareoa 

HF-ni«wy ami undErvuning I en nekkeat EDB*ni«en[ 

uddanneiwns tagmoduler. 

C I 1 PROGRAMMORLlNiENhflf unoervtining i praklisk. 
L- L> programmehng i lorbindelse met* ikolens drill 

PHOGR ammqrlinien hw undervlsning i elek 
iron'k i tortitndet« mod vedligehotdelie og juste- 
*ing at skolense-lektronlike iids/tyr 



EDB 
EDB 
EDB 
EDB 
EDB 



Deter 10.. 11 og 17 skolear. 



L 

ED. 

EDB 
EDB 



Det kan togn stats- og kommurantette 
SID med I em men born kan soge 450 kr 
pr mined i lommepengetilskud. 



Okonomien loser vi sammen 

Ring HI DIE BUSTRUP 
7881 Balling. 0? 56 84 40 
SkolOtimviiket Tvind 

Eller ring til skolefcon 
— iulcnikoniotei 
t 02-995544 



EDB EDB EDB EDB EDl * * 
EDB EDB EDB EDB EDB * 
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DEBAT DEBAT 
DEBAT 



CBS Electronic, der hldtll har im- 
poteret mange at de bedste kvaii- 
tetsprogrammer. har stoppet sine 
aktiviteter her i landet. Begrundel- 
sen er bl.a., at den stedse mere 
omfattende piratkopiering. gor det 
urentabelt at forhandle program- 
mer. 

Det er en saerdeles kedelig ud- 
vikllng, og vi vil gerne her i RUN 
starte en debat om emnet, 

Vi laegger ud med et brev, som 
vi har modtaget fra en af vore las- 
sere. Laeseren er, og bliver ano- 
nym for andre end redaktionen, og 
det er en garanti, vi ogsa kan love 
fremtidige indlaag i denne debat. 
Fat pennen og glv din mening til 
kende - uanset hvor du star. 



DE BLA PIRATER 

Det er nu to ar siden, jeg fik min 
CBM64, et diskettedrev og en data- 
sette- Jeg kom af med den oprinde- 
lige katalogpris og iagttog med sti- 
gende undren de konstante pris- 
nedsastlelser. 

Jeg skulle bruge computeren til 
helt senose formal (regnskab og 
tekstbehandling). 

Jeg investerede I forskellige au- 
tonserede programmer: Finans- 
bogforing. Easy Script, Easyv Calc 
(ogsa til fuld pris). Der blev sa ind- 
kobt en guds velsignelse af uden- 
landske blade og boger, der skulle 
afslore hemmeligheder, som de 
rnedfolgende manualer ikke var I 
stand til. 



Far til en spilled jcevel 

Jeg skal ikke her komme ind pa de 
problemer, jeg havde med hensyn 
til printer-interfaces og Commodo- 
res manglende kompabilitet med 
andre printermasrker end deres 
egnef 

Min son boede hjemme, og pro- 
gramudvalget blev hurtigt suppleret 
rned autoriserede spilleprogram- 




mer - og sa var det i ovrigt op lil ham 
selv. at sarnie et programbibliotek 
gennem indtastninger fra den 
enorme msengde udenlandske 
blade, der belastede regnskabet. 

Nuvel... han gad faktisk ikke! Han 
fandt pa at ga i -Den Bla Avis- - og 
jeg indrommer, at jeg i begyndelsen 
var forarget, da jeg sa. hvad han 
kom hjem med til ingen verdens 
penge Kopier frembragt af unge 
mennesker, der finder det spaan- 
dende at -bryde koder» - og mister 
sa interessen. nar del iykkes. Det 
baarer de lave priser i hvert fald 
praag af. 



Det bla marked en katastrofe? 

Jeg er ikke selv pirat, men jeg kan 
godt se. at det »bla marked- er no- 
gel I retning af en katastrofe for 
software-forhandlerne. Nar man 
kan fa et 200 kroners program for 
5-10 kr. i den bla, hvorfor sa ikke? 
Eller et 900 kroners program for en 
hundredlas. 

Der korer retssager, og man far 
vel stoppet noget af trafikken, men 
jeg tror egentlig. man griber det for- 
kert an. 



Beklagende skuldertraek 

Jeg ville have forsvoret. at jeg no- 
gensinde selv ville ga pa det bla 
marked. Men sa fik jeg en CBM 

8050'er. 



I min naivitet troede jeg, at jeg 
uden videre kunne bruge mine 
gamle disketter pa den nye disk! 
Jeg blev snart klogere. Det var ikke 
noget problem at kopiere mil fi- 
nansbogholderi over til 8050-forma- 
tet (men der horer jo en »dongle« 
til). Men Easy Script! Enhver, der 
kender dette fortrseffelige sytem 
ved. hvordan diskettedrevet hakker 
og larmer, nar det skal laese de knu- 
ste blokke, der skal gore kopiering 
umulig. Det kunne simpeithen ikke 
lade sig gore! 

En foresporgsel til en raakke for- 
handlere for at fa konverteret min 
autoriserede Easy Script til 8050 
formal gav kun undrende rynker i 
panden hos ekspedienter, der ikke 
anede, hvad jeg talte om. Fore- 
sporgsler efter software til 8050 for- 
mate! blev modt med lige sa megen 
undren, endnu flere panderynker og 
beklagende skuldertrask. Desvserre 



Easy Script for en ti'er ekstra 

Sa var der altsa ->den bla»! Et ungt 
menneske kom anstigende med 
hele sin samiing piratprogramrner 
Easy Script? Selvfolgelig! Det far du 
for en M'er ekstra' 



Fortsaettes side 65 
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TIL COMMODORE 64 
Af Tor Engebakken og John Andersen 




Commodore har altid vasret no- 
gel for sig selv. Da de bestemte sig 
for at erobre markedet pa hjemme- 
fronten, var der en eller anden 
salgs-strateg, som fik en overmade 
lys ide. "Jeg ved, hvad vi gor!>». ma 
han have sagt. »vi laver en diskette- 
station, som er verdens mest 
traage. Denne kobler vi til en af ver- 
dens mest avancerede video-chips, 
og hokus/pokus sa har vi en bedst- 
seller! For at folk i del hele taget 
skal godtage misfosteret af en disk, 
laver vi et kassetteoperativsystem, 
som er sa langsomt, at det far di- 
sken til at ligne en verdensmester i 
sprint!-. 

Som sagt sa gjort. Commodore 
sa dagens lys. og som sa mange 
andre kastede jeg mig over vidun- 
deret. Med kassettestation selvfol- 
gelig. Forste gang jeg skulle ind- 
lasse »The HobbiK begyndte de 
bange anelser at dukke op. Det tog 
12 rninutter, og i lobet af den tid 
kunne jeg na at lobe ned til forhand- 
leren pa hjornet og kobe mig en 
diskettesiation. 

Heller ikke diskettestaiionen var 
nogen rekordsluger. men jeg kunne 
i hvert fald kaste et rrtedlidende blik 
pa mine tidligere lidelsesfasller med 
kassettespilleren. 

Og derefter kom Turbo-loaderne 
til kassettestationen og odelagde 
hele billedet! 

Hvorfor gar det sa treegt 

Den saedvanlige overtorselshastig- 
hed er pa 300 baud (300 bits pr. 
sekund) Dette er den effektive ha- 
stighed og den. som vi brugere 
nsefter os ved. Egentlig sendes pro- 
gramme* af sted med en hastighed 
pa 600 baud, men da programme! 



faktisk bliver indlaest 2 gange. vil 
sluthastigheden modsvare 300 
baud. Grunden til den dobbelte ind- 
laasning har noget med sikkerheden 
at gore, og det kommer vi til om et 
ojeblik. 

Et program bliver lagrei digitalt 
pS kassettestationen, og den saad- 
vanlige LOAD-rutme skelner rnel- 
lem tre signaler af forskellig laengde 
(langt, medium og kort). Foran hver 
byte ligger der et langt signal efter- 
fulgt at et signal af medium laengde. 
Derefter folger bitmonstrene: 

Kort/medium = 0 

Medium /kort = 1 

Tilsidst folger sa en »paritybit» 
Denne sidste bit er en kontrolbit for 
at checke. at signalerne foran er 
kommet rigtig ind. Nar en byte er 
blevet indlsest, vil systemet checke, 
hvor mange bit. der er sat. Dette 
antal Uegges samme med den for- 
naevnte paritybit, og slutresultatet 
skal sa vaere et ottetal. Hvis dette 
ikke stemmer, har vi faet en fejl. 
Denne fe}l bliver sa registreret og 
husket. Efter at programme! er ind- 
test en gang, starter samme rutine 
pa ny. Den eneste forskel er, at fejl 
ved forste indlaesnmg nu vil forsoge 
at blive rettet op. Hvis dette ikke er 
muligt (f.eks. ved at vi far en ny fejl 
pa samme sted), vil vi fa en LOAD 
ERROR som resultat. Men pa grund 
af disse omstaandige rutiner. sker 
dette forholdsvis sjaeldenl. Trygt. 
men tidskrasvende med andre ord 

Hvad er en TURBO 

Der findes fiere lyper TURBOsyste- 
mer. I korthed kan de inddeles i to 
grupper. nemlig med eller uden bil- 
lede pa skaarmen. Typen med bill e- 
der pa sksermen er som regel mere 



langsom end den anden, og har en 
overforingshastighed pa ca. 1500 
baud. Den anden type er med blank 
skaerm, og herhggeroverforingsha- 
siigheden pa op mod 3000 baud. Til 
den sidste gruppe horer ogsa de 
fleste at de spraglede "flashy- LOA- 
Derne. 

Bade TURBO og sasdvanlig LOAD 
sender signaler til kassettebandet. 
Dette gores ved at manipulere IN- 
PUT/OUTPUT-porten i adresse S01. 
Nar bit 3 (casette write line) er sat, 
vil der blive sendt et signal ud pa 
bandet. Hvis bit'en er 0, vil der ikke 
opsta noget signal. Til forskel fra 
den saadvanlige SAVE -rutine bru- 
ger TURBO ikke to signaler for at 
skille 0-bit fra 1-bit. I stedefi sender 
den kun eet signal, og laangden af 
dette signal vil bestemme. om bit'en 
er 1 eller 0. 

Nar vi igen skal indlasse en fil. der 
er lagret pat TURBO, ma vi have en 
speciel LOAD-rutine, som er i stand 
til at tage imod det nye format. 
Commodore 64 har to ClA'er (Com- 
plex Interface Adapter). 

I adresse SDC00 finder vi CIA 
#1's Interrupt Control Register. 
Dette register er I stand til at op- 
dage. nar et signal begynder pa 
kassettebandet. Bit 4 bliver sat til 1. 
nar et signal starter, og ved at un- 
dersoge denne bit. vil vi kunne vide, 
at en bit er pa vej ind i maskinen. For 
at flnde ud af. hvad slags bit det er, 
ma vi have mulighed for at finde 
lasngden pa signalet. 

Nar et signal er opdaget, sastter 
vi en »timer« igang i CIA#2. 

Denne taeller automatisk ned 
mod nul. N5r den kommer til nul. vil 
bit 1 i register SDD0D blive sat for 
at informere om, at der er sket en 
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-timeroverllow". Poinien i del hele 
bliver nu at starte timeren, sa den 
nar at taalle ned til nul, hvis signaiet 
er langt, men sadan at den forlsat 
tSBller, hvis signaiet er kort. Ved et 
kort signal, vil bit 1 i SDDOD vsere 0. 
og ved et langt signal, vil den veere 
1. Pa den made kan vi slet og ret 
lasgge denne bit ind i den byte, vi er 
i faard med at indlsese. 

TURBO-programmet 

Vi behover som sagt en speciel 
LOAD-rutine for at hente program- 
met ind igen. En sseregenhed ved 
Commodores brug af kassettebuf- 
feren, tillader os at gore dette pa en 
snedig made Nar et program er lag- 
ret, vil start- og slutadressen til pro- 
gramme! ligge i kassettebufferen. 
Denne buffer er imidlertid 192 bytes 
lang. og ved at saslte ieengden af 
filnavnet pa del vi lagrer til 192 tegn. 
vil vi kunne lasgge hvad som heist 
ind her Det er netop det, vi gor. 
Hele LOAD-rutinen lagres sammen 
med filnavnet, og det vi i forste om- 
gang lagrer, er Ikke mere end en 
to-bytes systemvektor! Denne sy- 
slemvektor (CHRINvektoren) lader 
vi pege pa LOADrutinen, og sa 
snari vor lille to-bytes pointer er 
mdlaest, vil ope rati vsystemet give 
kontrollen videre til LOAD-rutinen. 
Derefter vil den TURBO-lagrede fil 
drone ind i hukommelsen med over- 
lydshastighed! 

Hvordan bruger du programme! 

Listningen her i bladet er ikke en 
fasrdig version. Nar du bar tastet det 
ind, gemmer du det og reset'er ma- 
skinen for at vaere sikker pa, at alt 
er. som det ska! vaere. Derefter skri- 
ver du folgende I -direkte mode- 1 * 
POKE44.12:POKE12*256,0 (RE- 
TURN) 

Du kan nu Indlaese programmet 
igen. N4r du nu skriver RUN, vil der 
ga et lille stykke tid ( for programmet 
har POKE't sig faerdig, og du vil der- 
efter blive bed! om at trykke pa RE- 



CORD/PLAY. Derefter vil der blive 
lagret en fserdig version klar til brug. 

Programmet vil blive lagret I tur- 
boformat, og hvis du foler behovfor 
en backup pa kassette eller di- 
skette, kan du nu lagre del pa saad- 
vanlig made. 

Programmet vil have navnet 

»TURBO. OBJ.. 

Hvis du ikke bryder dig om nav- 
net eller vil have asndret program- 
met til a! laegge ssg pi disk, kan du 
forandre linie 145. Lad POKEudtryk- 
kene sta, men fjern SYS2061 og du 
skal aandre SAVE-udtrykket til: 

145 SAVE-NAVNkDEV :REM 
DEV 8 = DISK DEV 1= KASSETTE 

Du har nu faet et program, som 
du kan bruge LOAD programmet 
og skriv RUN. TURBO-systemet er 
nu installeret og klar til brug. 

Foruden saadvanlig TURBO-save 
kan du vaelge at lagre programmet 
med AUTO-RUN. Der er to nye 
kommandoer for dette. 

SAVE] »FILNAVN" = sa3dvanltg 
TURBO-save. 

SAVE(krolle-a)->FILNAVN« = 
TURBO-save med AUTO-RUN. 

Hvis du kun bruger disse kom- 
mandoer, vil programmet. som lig- 
ger indenfor BASIC-pointerne blive 
lagret (hvilket vil sige den del af hu- 
kommelsen, som indeholder dit 
program). 

Du kan ogsa lagre andre omrader 
af maskinen. Faktisk alt fra S0800 til 
SD00O. Dette skulle vaare nok i de 
fleste tilfaalde. Formatet p£ denne 
type lagring er: 

SAVE! -FILNAVN-vSTARTADR, 
SLUTADR 

Husk, at det er temrneiig me- 
ningslosi, at Isegge AUTO-RUN pa 
et program, som ligger i f.eks. 
SCOOO. En AUTO-RUN kan kun bru- 
gss, hvis programmet kan startes 
fra sasdvanlig BASIC ved at skrive 
RUN! 

Bare skriv LOAD 

Nar du skal mdla?se et program, 



som er lagret med TURBO, er det 
ikke nodvendigt at have TURBOsy- 
stemet inde. Du skriver LOAD p& 
saadvanlig made, og programmet 
gar lige ind. 

Hvor i alverden ligger 
programmet 

Siden du kan lagre hele dette om- 
rSde, ma selve programmet ligge 
gemt et eller andet sted. En lille del 
af det ligger i omradet S02A7 og 
fremefter, mens hoveddelen ligger 
under kernalomradet SEO00- 
SFFFF. Nar du skal TURBO-save. 
henter rutinen i S02A7 parame- 
trene. kobler ROM 'en ud, og SA- 
VER derefter programmet. Dette gi- 
ver dig mulighed for at lagre et pro- 
gram pa op til 50K i en og sarnme 
operation. 

Hurtigere end disketten 

En test viste, at et program fra 
$0800 til SD00O tog 2 min 11 sek. 
at hente ind fra disk. TURBO brugte 
1 min. 52 sek. pa samme program! 
Hurtigheden kommer tydeligst frem 
ved lange programmer. TURBO ta- 
ber jo en del lid pa at finde program- 
met, og hente filnavnet og de to by- 
tes, som er lagret pa saedvanlig 
made! 

En sidste advarsel 

Da overforslen af data gar sa hur- 
tigt, og der ikke er mdlagt nogen 
form for fejlcheck. kan det ga gait 
I de fieste tilfaslde gar det godt. men 
programmer, du absolut ikke vil risi- 
kere at miste. bor du fortsat lagre 
pa den gamle made Du bor t hvert 
fald tage en backup af og til. 

Kassettestatsonerne er lidt tor- 
skellige Del kan derfor haande, at 
et TURBO-program, som gar pa 
den ene kassettestation ikke funge- 
rer pa en anden Hvls du sorger for, 
at den er (usteret rigtigt, skulle der 
imidlertid ikke vsere problemer. 

Programlistning side 50 
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Af Bjarne V. Jensen 



Hvis du har provet at tegne sprites- 
pa din Commodore 64, sa har du 
muligvis spekuleret pa. hvordan 
man tegner multicolor-sprites. Des- 
vaarre er metoden ikke beskrevet i 
den almindelige brugervefledning, 
men det skulle denne artikel gerne 
rSde bod pa 1 . 

I artiklen benyttes bogstavet V 
sorn videochip'ens startadresse 
(53248) . Hver sprite kan besta af op 
til tre farver, nemlig grundfarven. 
som kan vaelges torskellig tor alle 
sprite'ne. samt de to ekstrafarver. 
Nar de to ekstrafarver en gang er 
valgt, vil de vaere fselles for alle de 
sprites, der gengives som multico- 
lor (med mtndre de asndres under- 
vejs i program met). Eftersom de 
data, der bestemmer spritens fa- 
con, beregnes anderledes ved 
multi-color, ma man inden denne 
beregning beslutte, om sprtten skal 
gengives som multicolor eller stan- 
dard. 

For hver af de 8 sprites vaalges 
en grundfarve ved at poke farvetal 
i adresserne V + 39 til V + 46. pa 
samme made som ved standard- 
sprites. De to ekstra farver vselges 
ved at poke farvetal i adresserne 
V4-37 og V + 38 (multicolor 0 og 
multicolor 1 ). Disse to farver kan nu 
benyttes i alle 8 sprites, forudsat at 
videochipen er indslillet til at gen- 
give disse sprites som multicolor 

I adresse V + 28 bestemmer man, 
hvilke sprites, der skal gengives 
som multicolor, pa" samme made 
som man i adresse V + 21 bestem- 
mer hvilke sprites, der skal vsere 
Icendt. 

Nar en sprites gengives som 
multicolor, fornnges dens oplos- 
ning i vandret retning, idet de en- 
kelte lyspunkter (dots) nu haanger 
sammen to og to- Pa fig. 1 er vist. 
hvordan de enkelte dots hsenger 
sammen. I hveri felt er der plads til 
to bit (et-taller og/eller nuller), der 
benyttes III at angive. hvilken tarve 
det pagseldende felt skal indeholde: 
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DATA FARVE ADRESSE 

00 = Ingenting V + 33 

10 = Grundfarve V + (39-46) 

01 = Wultifarve 0 V + 37 

11 = Multifarve 1 V + 38 

Hvis man f.eks. vil tegne en sprite i 
farverne orange, sort og hvid pa rod 
baggrund, kan farverne indstilles 
sadan; 

V =53248 videochip-adresse 
POKE V + 28,1 sprite 0=multicolor 
POKE V-f 39.8 sprite 0 = orange 
POKE V + 37.0 multicolor 0 = sort 
POKE V + 38.1 multicolor 1 = hvid 
POKE V + 33.2 baggrundsf. = red 



Spritens udseende 

Beregningen af de data, der be- 
stemmer spritens udseende. fore- 
gar pa stort set samme made som 
ved almindelige sprite. Prov at sam- 
menholde de for vaigte farver med 
eksemplerne overs! t fig,1 

Det overste venstre dobbelt-felt 
indeholder 00 (ingenting), og vil 



derfor bhve usynligt. Det naaste 
dobbeit-felt indeholder 10 (grund- 
farve). og vil derfor antage den 
farve. der er valgt for den pagsel- 
dende sprite, i dette tilfselde 
orange. Naaste dobbelt-felt indehol- 
der 01 (multicolor 0) og bhver her 
sort. NebsIg felt indeholder 11 (mul- 
ticolor 1), og bliver her hvtd 

Nu kan datateltet for de forsie 
fire dobbeltfeiter beregnes ved a! 
addere bit-vserdien af alle et-tal- 
lerne: 

32 + 4 + 2 + 1 = 39 
PS samme made beregnes de 
nseste fire dobbelt-felter. og de naa- 
ste ... o.s.v - indtil alle 63 data tal er 
beregnet. Nar det er sket, kan spri- 
ten f .eks legnes i blok 1 1 med kom- 
mandoerne; 

POKE 2040,11 :FOR N=704 TO 
766 : READ D : POKE N.D : NEXT 
DATA 39,79.161 O.s.v. 

Nu kan spriten taendes med kom- 
mandoen POKE V + 21.1 og flyttes 
ind pa skaarmen med f.eks. 

POKE V.160:POKE V-M.BO ■ 



Tegnfordeling 



Af Flemming Lerbaek 
Tegnfordelings — systemer er 
computervenlige, og nar Dansk 
Tipstjeneste om kort t id (ca. 1. 
sept.) lukker op for brugen af ku- 
poner udskrevet pa printer, regner 
man med en stor forogelse af tip- 
sinteressen. Derfor dette program 
om de meget specielle tegnforde- 
lingssystemer, som vi pabegyndte 
i sidste nummer af RUN. 

Selve programme!, der ligeledes var 
trykt i RUN nr.4, kan mere, end vi 
sidste gang kom ind pa. Del skal jeg 
nu tage fat pa at beskrive. Til gen- 
gasld ma vi stadig vente med sidste 
programstump - den med udskrit- 
ten pa de nye kuponer De findes 
ikke endnu. 

Forst en meget lilte repetition af. 
hvad et tegnfordelingssystem er. 
Ved h|aelp af et sadant system, skal 
del VEere muligt at daskke sig ind for 
enhver afvigelse fra en udgangs- 
raekke. saledes at man er sikker pa 
mindst en raakke med 13 rigtige - vel 
at maerke ved een bestemt teg- 
nkombination, f.eks. 6,4,3 (d.v.s. 6 
l -taller. 4 krydser og 3 lo-taller). 



Nedbring udgiften 

Men. for at det skal lykkes, ma man 
af med 45.045 kroner hos tipsfor- 
handleren. Derfor ma vi ind pa at 
vselge sikre kampe. sa vi ikke skal 
dsekke os ind med alle 13 kampe. 
Kan vi Vcelge os ned pa 8 kampe. 
begynder det at ligne noget, de fle- 
ste har rad til. 

Heller ikke her er det lige meget 
hvad man vaalger tra. For at se, 
hvilke tegnkombinationer der er bil- 
ligst at lipse. er dette program ud- 
viktet. Udregnsngerne er nemlig ret 
omfattende, hvis man skal foretage 
dem i handen 

Opstillingen 

Lad os nu kikke pa den sidste ting, 
programmet er i stand Ml Mens vi 
hidtil har mattet foretage en del 
overvejelser i hovedet, vil program- 
me! med den sidste mulighed selv 
foretage disse overvejelser. 

Selvfolgelig skal vi stadig finde 
det eller de stkre tegn Detskerved 
at udfylde udgangsraekken i takt 
med, at man bliver spurgt pa skser- 
men. Der modtages kun rigtige svar 



( 1 . x eller 2) etlers naagter program- 
met - eller rettere det sporger igen. 
indtil der er udfyldt ngtigt, 

Nar raakken er udfyldt, sporges 
om tegnkombination. Vaslges en 
kombination, som er umulig, gor 
programmet opmserksom pa det. Er 
man derimod omhyggelig i sit valg, 
vil programmet komme med: 

1 . antallet af raekker, den on- 
skede fordeling medforer 

2. sammentaelling af din ud- 
gangsraekkes tegnfordeling 

3 den nu aktuelle fordeling (for- 
skellen mellem de to ovenstaende) 

4. og antallet af raekker systemet 
nu vil krfflve. 

Nar vi Igen vender tilbage til dette 
program, er det for at komme med 
en udskriftsrutine. Til den tid vil hele 
programmet blive gengivet, idet |eg 
altid integrerer programmerne sa 
meget, at der aendres pa dem hen 
ad vejen. Indtil da, kan jeg foresla, 
at du over dig i at finde de rigtige 
tegnkornbinationer, og far studeret 
tipsbladenes stalestikoplysnmger. 

Held og lykke! ■ 



Leasertricks 



Nu korer min 1541 som 
en velsmurt symaskine! 

Som del ofte har vasret tremhsevet . er 
anvendeFse af 1541 en sikker lesning, 
men beheeftet med et par problemer 

1. 1541 er en langsom disk 

2. Den risikerer hurtigt at blive siidt 
ved brug af traditionelt kopi-beskyt- 
tel software pa diskette 

Del ferste problem er ikke sadan at 10- 
se uden al skulle belale for det, bl.a. 
fordi overforslen af data mellem disk 
og computer sker senelt(i bit adgan- 
gen). Men der er en taktor. som ofte 
bliver glemt: Den hastighed, som 
la9se/skrivehovedet beveeger sig med. 

Kan man saette denne hastig hed op. 
uden al det gar ud over slkkerheden, 
vil man fa en hurtigere programafvik- 
ling, iseer ved opgaver med mange 
disk-accesser (random-files, relative 
files, hurtige skift mellem flere sekven- 
Ueile Mies), og ogsa ved validering af 
disketten 



Det andel problem lader sig faktisk 
lose pfi en overraskende let made. Po- 
sition 1 06 i 1541 's RAM bestemmer an- 
tallet af Iceseforsog, hvis der opstar en 
Isesefejl. Det virker pa den made, at 
lassehovedet gar i nulposition lor hvert 
Iffiseforsog. hvllket Siver den velkend- 
te skrattende lyd, nar kopibeskyltet 
soitware anvendes. Disse gentagne 
hurtige bevaegelser af la?sehovedet 
slider voldsorhl pa step-motoren, og 
desuden risikeres at lassehovedet 
kommer ud af justering. 

Det er mgen ide at nedsast te antaJle! 
af Iceseforsog til 1 , fordi man for oflevil 
komme I en fejlsituation med afbrydel- 
se af programafviklmg til fslge. Der- 
imod viser det sig. at hvis man shelter 
7-bit'en i position 106 ON, vil Iseseho- 
vedet IKKE ga i nul-position for hvert 
laaseforsog. Ketne Hexerei! 

Her er lesningen pa begge proble- 
mer i form at et meget lille program, 
som man passende kanslarteop med, 
nar maskinen tasndes; 



10 OPEN 1.8,l5/ , M-W , ' + CHR$f7) + 
CHRS(28) + CHR$(1 > + CHR$(15) 
20 PRINT 1."M-W"+CHR$(106) + 
CHR$(0) + CHR$(1) + CHR$(132) 
30 CLOSE 1 

I linte 10 S33ttes leese/skrivehovedets 
bevcegelseshastighed op med en fak- 
tor 4. 

I linie 20 seettes den omtalte 7-bit 
ON, anial lasseforseg saattes til 4. 

Mukarermin 1541 som en velsmurt 
symaskine, og endda lldt hurtigere end 
far. Prav selv! ■ 



Ovenstaende har vi med tak rnodtaget 
fra G Menzel i Birke/od. 

Skulle andre Iwsere llgge inde med 
gode tips og ideer, vil vi gerne bringe 
dem i bladet. sa andre ogsa kan IS g/a?- 
deafdem. 
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Maskinkode del 3 

Af Jan Btondum og Jorgen Jorgensen 



Vi er nu naet til det stadie, hvor 
ska! lasre. hvad de forskellige kom- 
mandoer hedder. og hvordan de be- 
nyttes. 

Som i Basic, har man ogsa en 
form for variabler t maskinkode, 
men de er dog beslemt pa forhand. 
En af disse hedder A (Accumula- 
tor), og kan indeholde et heltal mel- 
lem 0 og 255 (t maskinkode arbejder 
man kun t heltal). Denne variabel 
(register) er den eneste . der kan ar- 
bejde med matematik. Derudover 
findes der 2 andre variabler X og Y, 
der - bortset fra matematikken - vlr- 
ker pa samme made som A 

Hvis man i Basic vil tildele en va- 
riabel en vasrdi, kan man benytte 
kommandoen LET (overflodig i 
CBM*basic). 

LET A = 255 
Hvis man i maskinkode ville seette A 
(Accumulatoren) lig med FF hex 
(255 dec) ville man benytte kom- 
mandoen LD (LoaD) og den pagsel- 
dende "variabel- i detie tilfaslde A. 

LDA#$ FF 

Dobbeltkrydset (hashmark) til- 
vkendegiver, at det er den efterloi- 
gende vaerdt. der skal laagges i va- 
riablen. Dollartegnet viser. at tallet 
er et hex-tal. 

Havde vi udeladt dobbeltkrydset 
og skrevet 

LDAS FF 
betyder det. at A skal have den 
vaardi, der ligger i adresse FF (255). 
I Basic svarer det til 

(LET) A = PEEK(255) 

Vi kan altsa give »variablerne« en 
bestemt vaerdi. eller en vasrdi, der 
ligger i en angivet adresse. For at 
komme videre, skal vi nu leere at 
sammenligne tal. Her kan ogsa 
sammenlignes med en beslemt 
vasrdi eller en vasrdi i en bestemt 
adresse. Hertil benyttes, nar talen 
er om A, en kommando, der hedder 
CMP, hvilket er en forkortelse at 
CoMPare, der betyder sammenlign. 
De tilsvarende kommandoer for X- 
og Y-registeret hedder CPX (Com- 



pare X) og CPY (ComPare Y). Lad 
os prove at lave en enkel sammen- 
ligning; 

LDA # $ FA 

CMPS 3E 

Den torste instruktion kender vi 
Den anden betyder »sammenhgn A 
med indholdet i adresse 3E (62). 
Computeren sammenligner ved at 
traakke indholdet i adresse 3E (62) 
fra indholdet i A Der er ire rnulige 
resultater. Enten er A siorst (resul- 
tat positivt). A mindst (resultat ne~ 
gativt ) eller de er lige store (resultat 
0). Resultatet viser sig i et register 
der hedder P (processorstatusregi- 
ster). Dette register kan ikke benyt- 
tes som » variabel- . P-registeret be- 
sEar som andre registe af 8 bits (O'er 
og Vere). Hver af disse bits har en 
specie! betydning, og bliver 
"taendt- eller <>slukket» alt efter re- 
sultatet den instruktion, der s/tfsrer 
blevet udfort Man kalder ogsa de 
enkelte bits for "flag«. Her er en teg- 
ning af P-registeret: 

ikke benyitet 



i 



N 


V 




B 


D 


f 1 


Z 


c 



Z:Zeroflag (nulflag) bliver sat 
( = 1). hvis resultatet er nul. I oven- 
nasvnte tilfselde hvis indholdet i 
adresse 3E var lig med FA. 

N:Negativflag (fortegnsflag)v bli- 
ver sat. hvis resultatet negatlvt. I 
vort tilfaelde hvis indholdet t adresse 
3E var slorre end FA. 

C:Carryflag (memeflag) bliver 
sat. hvis en sammelaegning (addi- 
tion) overskhder 255 - eller hvis en 
subtraktion bliver mindre end nul. 

V:Overflow (overlob) anvendes i 
regneoperationer med positive og 
negative tal. "Mere nerom senere 

D:Decimalflag nar dette flag er 
sat. regner maskinen pa en anden 
made - en anden type matematik 
(BCD - Binaarkodet Decimal) 

I interrupt fortaeller, om interrupt 
er slaet fra eller til. Interrupts (for- 



styrrelser) er et I i lie underprogram, 
der 50 gange i sekundet bl.a. opda- 
terer ur og undersoger, om der er 
trykket pa taster. 

B:Break. Nar dette flag er sat, 
holder computeren op med at ar- 
bejde. Dette flag har ikke stor inter- 
esse for os. 

Det blanke felt (bit I benyttes 
ikke. 

Betingede spring 

Nu er det ikke tor siov, at vi foreta- 
ger sammenligninger. Som regel er 
det fordi. programme! pa dette sted 
skal forgrene sig, afhaengigt af re- 
sultatet af sammenligningen. 

Vi prover at leegge en kommando 
mere pa vort program. 

BEQ S(adresse) 
BEQ betyder -Branch if EQual- - 
spring til given adresse. hvis begge 
tal erens (resultat = 0}. Dette svarer 
i Basic til. 

IFPEEK(250) = 0THEN (adresse) 

W angiver den adresse. der skal 
springes til, Computeren angiver 
antal adresser. der skal springes 
(frem eller tilbage). Vi kan derfor 
ikke springe mere end 127 adresser 
frem eller 128 adresser tilbage. 

Vi kunne i stedet have skrevet 

BNE S(adresse) 

Dette betyder "Branch Not 
Equal" (spring hvis forskellig fra 
nul). I Basic hedder det: 

IF PEEK(250X>THEN 
(adresse) 

Vi undersoger ikke i dette tilv- 
faelde hvilket tal. der er storst - kun 
at de er forskellige. 

i Baste arbejder vi med GOTO 
Dette hedder i maskmsprog JMP 
hvilket star for JuMP (hop). Efter 
kommandoen angiver vi en bestemt 
adresse ( + 127 - -128). og maskin- 
kodemonitoren finder selv ud af. 
hvor mange tnn frem eller tilbage. 

Pa samme made arbejder JSR. 
der betyder -Jump to SubRoutine«. 
Kommandoen er ogsa velkendt i 
Basic - her hedder den GOSUB En 
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Fig. 2. De enkelte bit i joystik-portene. 



Port 2 



DAA T TEKST 



Hvis en af de skra retninger va=l- 
ges. vil to af IF-sastningerne vaere 
sande, og der vil blive udfort to ling. 
En sprite bevaages f.eks. pS skra 
ved at sendre bade x-position og 
y-position samtidig. Programmet 
"minitegneprogram« er et andet 
eksempel pa denne metode (se 
prograrnlistning), 



Commodores PC'er er blevet en 
formidabel succes - og ikke uden 
grund. Det er en professionel 

PC'er, der prismaessigt ra?kker 
ned mod hjemmecomputerne, og 
da den kommende 128'er specifl- 
kationsmsessigt raakker mod 
PC'erne, skulle hele spektret vaere 
tilgodeset og gra?nserne umulige 
at fa oje pa. 



De fleste PCbrugere har en eller 
anden form for tekstbehandling- 
sprogram. og mange har anskaffet 
sig det danske DANTEKST. 



Da det efterhanden er muligt for 
PCbrugere at erhverve en laser- 
printer til en overkommelig pris, er 
behovet for tekstbehandling, som 
kan udnytte disse funktioner. ste- 
get. 

Eksisterende versioner af DAN- 
TEKST kan ogsa opdateres til laser- 
versionerne. 

Priserne er folgende: 

DANTEKST standard og udvidet 
til henholdsvis kr. 8.900,- og kr. 
10.900,-. Opdatering fra standard til 
lase koster for begge versioner kr 
1000,- (alle priser excl. moms.). 



Ny manual 

Det kan desuden oplyses, at der 
er kommet en ny manual til DAN- 
TEKST. Det drejer sig om en om- 
redigeret manual i AMormat. 

Manualen indeholder. som noget 
nyt, en slags -Quick Reference-. 
Denne findes i et separart hefte, 
hvilket gor. at man ikke nodvendig- 
vis skal sldde med hele manualen. 
Quick Reference fungerer som en 
slags opslagsvserk over funktioner 
og kommandoer 

Prisen for en opdatering af manu- 
alen er kr. 350,- og for selve -Quick 
Reference- kr 195,- 

DANTEKST vil blive tester i et af 
de kommende numre af RUN 



Mdske den bedste bog om Commodore 64 overhovedet 



Ommodore 

CJIrnogrMB 



Commodore 64 

Getting the Most From It 
Tim Onosko 



Koncls, handy guide der indgaende behandler 
Commodore 64 samt den nye transportable version. 
Forklarer pa en letforstaelig made alt om anvendelse 
af Commodore ft4 llge fra begyndertrlnet III mere 
avancerede programmer. 

303 sider, engelsk tekst 
kr. 180,-. 

Beseg vor nye forreining med det omfattende udvalg 
af databoger - eller ring/skriv after vort katalog 
over datalitteratur. 



svensk-norsk bogimport a.s. store Kongensgade 59 - 1264 kebenhavn k - telefon 01 14 26 66 
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en p u o n n i co c 



a a 



Kobenhavn 



FONA COMPUTER CENTER 

Ilium. A sat 
Ostorgade 52 
1001 Kobenhavn K 

Telt 01-144002 
FONA 

Qsiergade 47 

1100 KoOentiavnK 

Tetf.: 01-159055 



FONA COMPUTER CENTER 

~ v ; \ : 41 
ii59 Kobenhavn K 
Ten. Qi-i'0707 



FONA 

Vesierbrogade 6? 
1620 KoDenhavn V 

Tett 01-2493O0 



FONA 

01 Kongevej 116 
18S0 Kobenhavn V 
leif 01-210893 



Storkobenhavn 

DATACARE 

Tarnwo) 151 
2610 Rodovre 

Telf.. 01-705858 



FONA 

Fatkoner Alio 58 
2000 Frederiksberg 
Tetf 01-352122 



MIBOLA M IK ROD ATA 

0$ierbiogade n 7 
2100 K«toenhavn 0 
Tel( 01- 183366 



FONA 

OsterbrogadE 80 
2100 Kobenhavn 0 
Telf 01-421010 



FONA 

NoneDrogade 34 

2200 Kobenhavn N 

Telt 01-377788 



FONA 

Norrebrogade 17*4 
2200 Kobenhavn N 
Tell 01-B3034S 



FONA 

AmagerDrogade 49 
2300 Kobenhavn S 
Tell 01-572131 



FONA 

Amagerbrogade 126 
2300 Kobenhavn S 
Tetf : 01-553600 



FONA 

SundDyvester Piads 1-3 
2300 Kobenhavn S 
Telf 01-559662 



FONA 

Frederikssundsvei 38 
2400 Kobenhavn NV 
Tell 01-190186 



LAMIFI DATA 

Solskrasnton 33 
2500 Valby 
Telf 01-163299 



FONA 

Valby Langgade 56 
2500 Valby 
TehV 01-163045 



FONA 

Hovettvejen 85 
2600 Gluslruu 
Telt 02457077 



FONA 

Rodovre Cenlrum t3l 
2610 Rodovre 
Telf 01-411777 



FONA 

Cily 2 - 206 
2630 Taslrup 
Telf 02-521525 



POULSEN COMPUTEHCENTER 

Cily 2 ■ 304 
2630 Tasirup 

Tell.: 02-990977 



FONA 

isho| Bycenter 32 
263S Ishoj 
Telf 02-730233 



FONA 

Hvidovre Stationscanler 37 
2650 Hvidovre 
Tell 01-471621 



FONA 

Stondmarksvei 20 

2650 Hvidovre 

Tell 01-490711 



FONA 

Greva Confer 88 
2670 Greve Strand 
Teft O2-90OJ55 



FONA 

Mundio Storcenier 98 
2670 Greva Strand 
Tetf 05-900780 



JM-DATA 

Sandbakkon 27 

2680 Solrod Strand 
Tell 03-144573 



FONA RADIO A/S 

18 

FrodenHssunasvei 330 

2700 6ronsho| 
Tetf 01-287000 



FONA 

Frederikssunasvej 154 
2700 Bronshoj 
Tell.: 01-262728 



FONA 

Jembane Alle 39 
2720 Van lose 
Tell 01-7435^8 



FONA 

Herlev Bygade 28 
2730 Herlev 
Tell 02-94 S 787 



FONA 

Canirumgaden 26 
2750 Bailenjp 
Tell. 02-654455 



FONA 

Lyngby Slorcenter 38 
2800 Lyngby 
Terf 02-871131 



FONA 

Soborg Hovedgaao 56 
2860 Soborg 
Tell 01-561765 



FONA 

Strandvejen 161 
2900 Heller up 
Tell 01-611422 



FONA 

Hovedgaden 14 
2970 Horshotm 
Tell 02-864166 



Nordsjaelland/Bornholm 



BO-L DATA 

Set Olaigade «7 
3000 Helslngar 
TeM.: 02-100211 



FONA 

Slengade 53 

3000 Helsmgor 
Telf 02-210916 



FONA 

Sloisgade 25 

3d00 Hlllerod 
TeH 02-260133 



BO- EL DATA 

Tarns borgyei 19 
3400 Hillerod 
Telf 02-253131 



FONA 

Farum Bylorv 11 
3520 Farum 
TeH 02-9550SS 



U.I.B. ELECTRONIC & DATA INC. 
ApS 

Liilovangsve) 3. Accacletorvet 
3520 Farum 
Telf 02-955170 



FONA 

Havnegaae 21 A 
3600 Freflonkssuhd 
Telf 02-311515 



Syd- og Midtsjseliand 



FONA 

Algade 12 
4000 RosMde 

Telf 02-366633 



DATARINGEN 

Tune Cenlrel 
Arnestien 12 
4000 Roskilde 
Tell 02-139100 



FONA 

Vestsiffiliands Center 15 
4200 Slagelse 
Tell.. 03-520916 



FONA 

Ahlgade 61 
4300 Holbaek 
Tolf 03-437510 



FONA 

Norregade 1 

4600 Koge 

TeH 03-6S00B8 



FONA 

Set Peders Kirfceplads 1 
4700 Nasslved 
Telt 03-727122 



Fyn med omliggende 
oer 



FONA COMPUTER CENTER 

Vestergade 61 
5000 Odense C 
Telt 09-125808 



FONA 

Tarup Center 
5210 Oden&e SO 
Tatf 09-160123 



FONA 

Rogengafdaeeniffii 34 
5220 Odense SO 
Telf . 09-159755 



FONA 

Voldgade 7 
5700 SvoMborg 
Tetf 09-2H785 



Vest- og Sonderjylland 



FONA 

Heiltgkoragado 2 
6000 Holding 
Tetf 05-527755 
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FOTOHUSET A/S 

Sondergsde 4 
6O00 Kolding 
TeH.. 05-520044 



FOTOHUSET A/S 

Bispegade 7 
6100 Hadersiev 
Tell 04-521319 



FOTOHUSET A/S 

N Of reo ort 19 
6200 Aocnra 
Ten : W -626601 



FONA 

Ftamsherrad 41 A 
6200 Abenrft 
Telf. 04-622644 



FONA 

69 

Periegado 30 
6400 Sonderhorg 
Terr Cw-421013 



FOTOHUSET A/S 

Perlegade 49 
6400 Sonderborg 

Telf 04-423265 



FONA 

Kongensgade GO 
6700 Esbierg 
Telf QS- 130133 



Midtjylland 



FONA 

Goihersgade 12 
700O Fredencla 
Tel(. 05-922955 



FOTOHUSET A/S 

Goihersgade 19 
700O Fredericia 
Tolf 05-922454 



FONA 

Norrtgade 29 G 
7100 Vejlo 
Telf.: 05-8272&8 



FOTOHUSET A/S 

Radhusiorvet 2 
7100 Voile 

Tell,; 0S-B22337 



FONA 

B'odgade- 17 
7400 Hemmg 
Telf: 07-124455 



FONA 

Narregade 30 
76O0 Holstabro 
Tell. 07-425611 



Ostjyliand 



FONA COMPUTER CENTER 

Banecardsgade 16 
8000 Arhus C 
Tort 06-132222 



FONA 

GuWsmadegade 15 

aooo Amus c 

Toil 06-122777 



FONA 

M P Bfuunsgaae 43 
8000 ArhUB C 
Telf 06-131857 



FONA 

Spndergade 15 
8000 Arnua C 
Talf. 08-131724 



FONA 

City Vest 243 
8220 Brabrand 
Tell 06-253011 



FONA 

Sondergade 17 
8900 Silkeborg 
Telf. 06-325733 



FONA 

Snndofgade 
a/00 Horsens 
Telf 05-628000 



FONA 

Set Manila* Marked 305 
8900 Vtborg 
Toll : 06-625266 



FONA 

Radfiusslrade 13 
89O0 Raiders 
Tell.; 06-427533 



DATA RINGEN 

Sioisgado 4 
aoiacentrei 
6900 Randets 
Tell 06-413777 



Nordjylland 



FONA 

Nitwvei V A. Skaltjotg 
9200 Aalborg 3V 
Ten ; QS-16431Q 



fra side 55 

Jeg skal mdromme, al jeg forsy* 
nede mig med en raskke seriose 
programmer i -knsekkede- versio- 
ner. der gjorde det muligt al om- 
saette dem til 8050 formatet. 

Foler jeg mig kriminel i den an- 
lednmg? i€rlig talt NEJ! Derimod f fl- 
ier jeg mig svigtet af softwarepro- 
ducenterne. der spiider alt for me- 
gen tid pa at udtaenke nye raffine- 
rede beskyttelsessystemer, frem 
for at gore det muligt for hasderlige 
brugere at behandle deres retmaas- 
sige ejendom/som man vil - sasom 
konvertere dem til andre diskette- 
formater! 

Jeg havde aldrig dromt om at g£ 
pa det blA marked, hvis jeg havde 
kunnet overfore mine programmer 
til mit nye diskettedrev. og jeg ville 
formentllg have irwesterel i flere au- 
toriserede programmer, hvis de 
ikke havde vasret odeiagt af kopisik- 
ringer, der Winger brugeren 111 kun 
at benytte dem I den langsomme- 
lige 1541 disk. 



Nar noden er knaekket 

Jeg mener, at det bla marked kun 
eksisterer i kraft af. at program- 
merne forsynes med sindrige lase- 
systemer. Det er pa tide, at softwa- 
rebranchen erkender, at enhver 
»kode» kan bryvdes, og at det er en 
udfordnng at bryde den! 

Pladebranchen har haft dette 
problem, siden bandoptageren kom 
pa markedet. Tank hvis en gram- 
mofonplade var forsynet med en 
kode. der bevirkede. at man kun 
kunne spille den pa sin egen gram- 
mofon - og mig bekendt har bran- 
chen overievett 



Uanstaendig prispolitik 

Jeg onskede mig laenge COMAL 80 
i modulform, men prisen - over 200O 
kr. - hold! mig tilbage. Omsider kom 
en ny forbedret version - med en 
forbedret manual - til kun 995 kr. 
Jeg kobte den nye version, men 
tasnk pa de stakler, der kobte den 
dyre. 

Man siger. at der er solgt 50.000 



C64'ere. der star rundt omkring i de 
danske hjem. Det er nu software, 
det drejer sig om Hvad ligner det at 
lukke sit begrasnsede udvalg ind i et 
afsidestiggende glasskab. Frem pa 
disken med det, sa man kan under- 
soge det, kikke i manualerne. og se 
om det er noget, man kan bruge 

Maske er det for sent! Men el- 
lers: lad ikke Den Bla Avis rende 
med markedet! Forlad den tabelige 
beskyttelsespolitik og vaslg sa en 
fornuftig prispolitik. sa man ikke fo- 
ler sig fort bag lyset, nar priserne 
raster ned. 

Maske vil det gavne at fa en bru- 
gerdebat i gang om disse proble- 
mer. Nu har jeg -lagt kortene pa 
border- - hvem vil folge det op? 
(Forkortet af red,) 



A PUBLICATION Of A 
CW COMMUNICATIONS / 
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Eureka! 



19 



Up-Down 



27 



W 



26 



Af Flemming Lerbaek 
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Hvad mener du om udsigten til at 
tjene 25.000 pund. Ikke darligt, 
men lorst skal du lige lose de fem 
adventurespil, som udgor "EU- 
REKA!*. 

Vi opfordrede i juni-juli numme- 
ret til at komme med bud pa evt 
lesnlnger. Vi har ikke faet mange, 
men derimod en del toresporgsler 
pa. hvor man I det hele taget kan 
kobe spillet. 

Spillet er lavet af Dormak. som i 
skandinavien har udgivet del i sam- 
arbejde med del svenske "Handle 
Software AB-. Vi ved desuden. a1 
»Twitight" har haftv det. men om 
ikke andet kan det bestilies direkte 
hos Handle: Box 42048, S-126 12 
Stockholm. Sverige. 

Nu til den videre faerd gennem 
den forhistoriske tid i det forste ad- 
venture. Vi losle sidste gang 10%. 
men denne gang kommer vi op pa 

( Kviksand ) 

40%. Folg noje instruktionerne fra 
sidst sammen med de nye. Husk 
isaer at samle alt det op. der bliver 
bedt om (T) Pas denne gang pa 
tidsbegreensnmgerne og husk at 
gore nojagtig som der er angivet 
ellers ... 

18 W - ved foden af en vulkan - U 
- T (salpeter) 

19. TB - D • vulkantoppen 

20. S - TB - savanne 

21 S - savanne nasr lille lund 

22 S - savanne nasr dinosaurus 
skelet 

23. W - savanne neer lille dam - de 
nceste trin krasver forsiglighed og 
hurtighed. 

24 NW - TB - stegusaurus i farvan- 
det 

25. N - TB - rnamuth kommer lo- 
bende - drop mouse 



SW 



N 



32 



W 



SW 



31 



34 



35 



33 



24 



37 


W 


36 





38 



SW, 





w 


39 


E 


40 









N W 



SW 



41 



E 



42 



26. N - TB - sabeltlger - sydbred af 
Hod 

27. W - syd for flod i jungle 

28. S - lysning I jungle - TB 

29. W - lille taet tunnel at vegetation 

30. W - TB - T (halskaede) ■ E (stor 
edderkop pa 30) 

31. W - TB - SW - TB - en neandert- 
haler sporger* -Kong Ka/Bong Ka-\ 
hvilket ma vaere ven/fjende - svar 
med -Kong Ka«. Manden svarer 
"Mmko, kong- 

32. W - du er i Smigs hytte - L - du 
ser en lerpotte - byt - give necklace 
- du far pollen 



NW 



21 



23 


W 


22 





33. E - T pa position 32 (rund sten) 
- E - L - du er i Kogos hytte - du ser 
en bambus stige - byt - give ruby - 
du far stigen 

34. SW ■ TB ■ drink liquid - udenfor 
heksedoktorens hytte 

35. S - TB - lad liden ga og du far 
rad: peger op og siger: -molok" og 
peger mod bjergene i syd og siger 
-molok naja- 

36. N - N - S - du er havnet I et 
y-kryds 

37. W - mudret vandhul - fill pot 

38. E - S - du star pa- kanten af en 
orken mod syd 

39. VIGTIGT - ga ikke mod sydvest 
(kviksand) - ga i stedet S 

40. E - videre ind i orkenen - du bN'r 
torstig 

41. SW - du bh'r meget torslig - 
drink waler 

42. E - du moder vred dinosaur - 
make gunpowder - make gun - use 
gun 

Det var de forste ca 40% af spil- 
let. men skriv til os rned jeres tor- 
slag, sa vi kan hjaelpe hinanden med 
at fravnste softwarenrmaet de 
25.000 pund 

Pengene far man. nar hele spillet 
er lost, og man har ringet et telefon- 
numrner i London op 

Allsa i gang med a! spille. Tegn 
et kort og forklar. hvor faldgruperne 
er. Pc( denne m§de kan vi komme 
laengere i faellesskab. Losningen 
vinker forude. men der er lang vej! 

God tornojelse. 
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DE NYE COMMODORE PC ERE: 

SUPERPROFESSIONEL YDELSE TIL SENSATIONEL PRIS. 







JUKI 2200 Skrivemaskine/printer 
Hastighed: 10togn/sek. 
Pris 4.800,- excl. moms. 

JUKI 2200 KSR Termlnal/skrivemaskine/ 
printer 

Hastighed: 10 tegn/sek. 
Pris 5.300,- excl. moms. 



JUKI 6100 18tegnysek. 
Prisgrundmodel 6.500,- excl. moms. 
Pris med arkfoder 9.650,- excl . moms. 



EN FAMILIE AF 
SK0NSKRIFTPRINTERE 





JUKI 6300 40 tegn/sek. 
Pris med arkfoder 

1 magasin 17.000,- excl. moms. 

2 magasiner 20.000,- excl. moms. 



l:i — .^.milji] :.ilni.". u"' 



JUKI 6000 10 tegn/sek. 
Pris 3.180,- excl. moms. 









1 


m 
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JUKI 6100 18 tegn/sek. 

Med traktorloder 8.100,- excl. moms, 



JUKI 6300 40 tegn/sek. 
Prisgrundmodel 12.500,- excl. moms 
Med traktorfoder 15.000,- excl. moms 



IINTER/WEDIUM 



JyHa 

IF Tlf. (C 



Intermedium EDB-Teknikog Service A/S 
Hedeager 2, 2600 Glostrup 
Tlf. (02)458233 



Jyllandsafd.: Mollevej 5, 8680 Ry 
Tlf. (06) 8931 22 




Commodore - MARKED 



COMPUTERBUTIKKEN har de series© 
programmer lit Commodore 64 

VIZASTAR 

BU DGETOATABASE/GRARK 
Programmel rned LOTUS 1-2-3 facillleter 

VlZASTAR XL4, cartridge, 

diskette samt god manual 1 -675,- 

VIZASTAR XL8, cartridge med ekstra 
8KRAM. diskette, brugerrnanual, rned 
mulighed for udskrift af Pie-charts. 

VIZASTAR XL4 2.225,- 

Rlng og bestir vor specialbrochure! 




kken 



vi AKademisk Boghandei - Vosiergade 58A 
8000 Arhus C - Tlf. 06-13 20 55 



Fa mere ud af 
din Commodore 
hjemmecomputer 

Dansk Tidsskrift med tips 
og icteer. 

Pravenummer tilsendes. 

Basic Programmering 

Norholmvej 8 
8740 Braedstrup 

Tlf. 05-761518 



Commodore specialisten 
Byens billigste! 

Commodore 64 
SX-64 • C16 • Plus/4 
Disket testation 1541 

Printer MPS-801 

Printer MPS-802 
Monitor 1701 

Erhvervsprog rammer, legeprograrnmer, 
tilbehor, EDB-borde. 

Vi har det hele! 



Ring eg f& 

etgodt tiibud 



vMIBGLK 

/HIKRODATk 

Itf OI-IB 13 6fi 




Printerborde 
RABAMI Serie 230 




Trinles uafhasngig hejderegulering 
af save] skserm- som tastaturplade. 
Overflade, biandfast raelamin i eg, 
teak eller raodehvid. 498" 
Leveres knock-down. Inrl mil 
Forsendes pr. efterkrav over hele 

an REKlAMEHUSETA/S 

Konge vejs Centret 6 • 2970 Hontholm 
TO 02-57 20 00 



Lagerudvidelses-kit for 
Commodore PC 10/PC 20 

Ker SYMPHONY etc. pa PC'en og 
Spar op til kr. 1500,- 

Moloch-512: 
256k-512k bytes: 

kr. 2195,- excl. moms 

9 lagerkredse 

1 adressedekodnings-PAL 

1 installationsvejledning pS dansk 

Moloch-640: 
512k-640k bytes: 

kr. 1095,- excl. moms 

9 lagerkredse 

1 Installationsvejledning pa dansk 

Moloch Software ApS 

Ulrikkenborg Alle 33, 1. 
2800 Lyngby 

Kontakt- Til. 01-10 87 18 



TIPS- PROGRAM til Commodore 64 

telle program holder styr pa alle lodboWrtoidene, op- 

summer&r automalisk kampe, vundne, taOte. mil, 

points 0-s.v.. hvorefter du kan llppe ugens ttpskupon 

med de sidste helt akluolle data 

Programmet laver setv Kuponeme og sKrlvet de udreg- 

nede ptocentcrtancor pd skatrmen. 

Du m\Qe< mollem systomraekkef eller enkeltraikker. 

Ou gemmet dine dala og opsumrroerer Oem den tolgerv 

de sondaaogduerallidup iodatevedtlpnirig«n. 

Leveres pa diskette elier band 



Pris: kr. 



295,00 



band 



Bestilllngsseddel □ diskette 

sondes 111: 

ID-Data service. HaslegArdsvoj 5, 82 tQ Arhus V. 

□ Check vadlagt ] .15% 

LI Indbetalt pa giro 8274851 * = 250,75 kr. 
Q Bet ales wed modiagelson 

Navn: 



Adresac: 

Pn 5 1nr 0,; _ 



Spar 231,- 

RABAMI 230 
COMPUTER- 
BORD 

Normalpris 729,- 
Hvid og Eg 



Spar 147,- 

RABAMI 

SKRIVE- 

MASKINE- 

BORD 

Hvid og Eg 



RING OG 
BESTIL 
IDAG!! 

Forsendes knock 
down over hele 
landet. 



498- 428- C( 

W w fl * Koncieveis Centret 6 



Incl. moms 



Incl. moms 



REKLAMEHUSET A/S 

Konge vejs Centret 6 • 2970 Horsholm 
Tlf. 02-57 20 00 



SUN-FLEX filtret tier 
effektivt beskytter 
skffirmoperateren 



Svie, kloe og treethed t ejnene beskytter 
skaermoperatoren. 

De forskellige gener opstSr primaart, fordi 

statisk elektricitet akkumuleres og udstrales fra 

dataskaermens overflade. 

Den statiske elektricitet er ubehagelig, og 

medferer et darligt indeklima samt utilfredse 

operaterer. 

sun-flex filtret monteres direkte pa skaarmen. 

sun-flex filtret aftedler den statiske elektricitet. 

sun-flex filtret eleminerer VLF udstralingen, 
der tfelge de seneste underssgelser viser sig at 
veere skadelige. (Rekv. rapport at Bob DE 
Matteo, Ontario Public Service Employee 
Union). 

Fer: Etter: 



stalisk elektrlcilel 

2.000-10.000 voll/m* 




ingen statisk elektricitet 

ilngen volt 

Filter 




Uden sun-flex filter 



Med sun-flex filter 



sun-flex filtret eliminerer reflekser pa 
skaaf mens overflade. 

sun-flex filtret findes i to typer til Monochrome 
skserme. samt special filter til farvetermirialer. 

sun-flex optlske filtre eger arbejdsglaaden og 
reducererfejlprocenten. 



sun-flex 

filtrene f&s 
til alle typer 
dataterminaler. 



sun-Ilex teknik ApS 

Staktoften 22 2950 Vedbeek 
Iff.; (02) 89 25 56 




RUN Amok 




Alle har haft problemer med ma- 
skinkodemonitoren Supermon. 
Helt forstaeligt, for der var nae- 
sten »smuttet" en hel blok for os. 
Vi kan dog troste med, at det tidli- 
gere indtastede ikke er splldt. I 
starter op med at poke som an- 
givet i RUN 3. S£ Indlseser I ind- 
tastningsprogrammet og ssetter 
nu slutadressen til 4591. Indices 
s& det, der er tastet ind (SHIFT-L), 
angiv den ny adresse (SHIFT-N) 
til 4352 og indtast de sidste linier. 



RUN mOK - SUPERHON 



4352 
1358 

43?0 
1376 
4392 
4388 
4394 
4488 
4406 
4112 
4419 
4424 
4430 
1436 
4442 
4448 
4454 
4460 
4^66 
«472 
4479 
4481 
4430 
4496 
4502 
4508 
4511 
4520 
4526 
4532 
4538 
4544 
4558 
«556 
4562 
4568 
4574 
4588 
4586 



DATA 
DATA 
DATA 
DAT* 
DATA 
PATA 
DATA 
DATA 
0ATA 

PATn 
data 

OAT A 
PAT0 
PATA 

data 

DATA 
DATA 

OATfl 
DATA 
DA I A 
DATA 

data 

DATA 
PATA 
DATA 
DATA 
PATA 
DATA 
DATA 

PA i n 

DATA 
DATA 
DATA 
DATA 
DATA 

DArn 

DATA 
DATA 
DATA 



899,000 
000,000 
093. 139 
029,035 
000.800 
168.025 
035 ,036 
000.026 
036.036 
041 .000 
021 ,156 
041 .083 
165. 105 
090 .872 
084 .868 
232. 148 
132 . I 16 
244 .204 
139.000 
116.116 
179,050 

000 , 000 

1 14 .1 14 

038 .872 
858,059 
076.083 
0B8.B4.4 
053.249 
247.248 
137 .243 
012,250 
146 .251 
056.252 
138,253 
070,248 
237 .247 
032 .080 
082.032 
892,032 
000.000 
*0 



.000 .089 
.028 ,138 
.827 .161 
.157,133 
.041 .025 
.035.036 
.083 .025 
.031 .091 
. 174 .174 
.000 .124 
.109 .156 
.132,019 
. 035 . 1 60 
.038 .098 
.280 .084 
.000 .080 
. 188 .810 
.074 .114 
.008. 170 
.I16.1H 
,178,008 
.025 .026 
. 1 36 . 200 
.063.068 
.882,077 
.884.878 
.065.066 
.080 .284 
.000.096 
.000.24 4 
.000 .062 
.800 .192 
.000.031 
.800 . 172 
.009.255 

.000.813 

.067,832 
.865 .067 
.883.082 
.008.000 



.036.036 
.028.035 
, 157 . 138 
.029.161 
.174 .105 
.093,027 
.151 .000 
.165 .105 
.169. 173 
.000.000 
. 165.185 
.052.017 
.236.098 
. 148 . 136 
.104 .068 
.190 .008 
.110,116 
.242.164 
. 162.162 
.068.184 
,800,034 
.838.038 
.196 ,202 
.162 .200 
,071 .099 
.872 .068 
.245,000 
.248 ,008 
.249.000 
.249 .000 
.251 .008 
.251 .080 
,253,000 
.253.000 
.247.008 
.032,032 
.032,083 
.837 ,088 
.032,083 
.800.000 



.249 
.229 & 
.283 
,038 
.089 
.118 
.084 
.222 
.249 
.165 
.200 
.088 
.011 
.070 
.896 
. B'i6 
.182 
.019 
.120 
..122 
,184 
.128 

,194 

.095 
,179 
.197 
.218 
.247 
.062 
.111 
.063 
.072 

.140 

.048 
.052 
.049 
.070 
.110 

.141 
.000 

*> 
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»qualimetric« 
g0r det lettere 

Vigor del superletforderesdataanlaagiBASFdata-mediamed ^qualirnetric-.-symboleter 
kendetegnet (or perlekt og sikker kvalitei. Fra FlexyDisk til plademodul er vi i den saer- 
lige situation, at vi kan omsaatte vore samlede erfaringer til topprodukter Vi optimerer 
kvalitet tilBASFspecialitet Denneekstrasikkerhed lonnersigog gor det letters forDem 



o 



3 BASF 



■BASF 





BASF 
kvalitet 



AHe BASF data-media er specielt 
udviklede. specielt producerede og 
gennerntestede. Det er BASF's 

saarposition en garanll for. Over hele 
verden engagerel i kemi og tystk, 
saerdeteserfaren i samspiilet mellern 
apparal og medie Del ergrundlaget 
for BASF lopkvalitet. 



A/S Badilin 
Ved Stadsgraven 15 
Postboks 1734 (01) 570011 
230O Kobenhavn S 




Indtastningsvejledning 
for Commodore 64 & VIC-20 




De programmer, der trykt er i RUN 
ser lidt anderledes ud end du er 
vant til at se pa din skaerm eller prin- 
ter. Det sky Ides, at vi har a nvendt et 
sasrligt printprogram. der»overs£et- 
ter« de grafiske tegn til et mere las- 
seiigt sprog. Vi beder dig derfor lae- 
se indtastningsvejledningen om- 
hyggeligt igennem, for du starter 
med at indtaste dine programmer. 



Alle de grafiske tegn er i vort printpro- 
gram sal metlem to kantede parenle- 
ser, og du skal saledes IKKE indtaste 
disse parenteser eller det. der star 
imellem. Du skal t rykke pa den el ler de 
taster, der svarer til det, der er skrevet 
meilem parenleserne iflg. skemaet 
her pa siden. Star der et tal umiddel- 
ba rt ef ter den farste kamede parentes, 
skal de pagaaidende taster trykkes det 
antal gange, der star skrevet. 
Star der SPC metlem de kantede pa- 
renteser, trykker du pa mellemrums- 
tasi. Star der et tal foran SPC, trykker 
du last en det antal gange 

Du vil ogsa komme ud lor, at der 
imellem parenteserne l.eks. star S/A - 
i sa tiltaslder trykker du pa SHIFT-ta- 
sten og A. Havde der i stedet staet C/A, 
skulle du have trykket pa Commodore- 
lasten og A. OgsS i disse tiif-selde, kan 
der vaare et tal, der angiver antal gan- 
ge. 



Kontrolsum 

I programmeme til Commodore 64 er 
der knyttet et sSkaldt kontrolsums- 
program, der kan lette fejllinding ved 
indtastning. Fremgangsrnaden ved 
brugen al dette program er felgende: 

1 . Du starter med at Indtaste kon- 
trolsumsprogrammet og gemmer det 
til fremtidig brug. 

2. Far indtastningen at de ovrige 
prog rammer starter du med at indlaase 
kontrolsumsprogrammel, 

3. Sa indtaster du dit program. 

4. Tag altid en kopi af dit program, 
indendu tester det. 

5. Skriv GOTO 62000 og besvar de 
sporgsmal, som programmet stiller. 

6. Sammenlign de kontrolsummer 
med de, der er trykt I bladet og find de 
linier. hvor du evt. har tastet fejl. 

Almindeltge rad. 

Vasr meget omhyggelig med ind- 
tastningen, og specielt nar det drejer 
sig om de sakaldte DATA-t inier , En lejl i 
disse linier kan torarsage, at compute- 
ren »gar i baglas« og du bli ver nedt til at 
slukke tor den. 

Derfor endnu en gang: tag en kopi a( 
dit program, Inden du kerer det. 

Hvis computeren giver en fejlmed- 
delelse i en hnie, hvor der tindes en 
READ-kommando, kan du vaare nae- 
sten sikker pa, at fejlen IKKE skal fin- 
des i den pagseldende hnie, men der- 
imod i en af DATA-linierne. 

Hvis du Indtaster en programlinie, 
derfyldertolinierpSskaarmen fuldlud, 



(80 tegn) vil cursoren springe ned t den 
tred|e hnie. Et tryk pa" RETURN-tasten 
her vil IKKE mdleese den pageeldende 
Ithte. Du er i satilfselde nodt HI at trykke 
cursoren en eller to linier op. tor du 
trykker pel return, 

Programmeme I RUN 

Programmeme, der er trykt I RUN, er 
testet og kan funktionere. Da program- 
meme mange gange er ret komplice- 
rede, kan vi ikke 100% udelukke, at et 
program i en speciel situation vil kunne 
opfore sig uventet Dette er dog ikke 
normalt, og i sa tilfaelde vil redaktionen 
naturiigvis vcere laknemmelig tor en 
SKRIFTUG orientering. Derimod skul- 
le der ikke laangere vasre nogen tek- 
nisk fejlmulighed i proceduren fra 
diskette/band til trykning I bladet. 
Eventuelle rettelser og korrektioner til 
programmer eller artikler I RUN vil s£ 
vidt muligt blive bragt i det efterf 0lgen- 
de nummer under rubrikken RUNA- 
MOK. Vi beder -lceserne om I KKE at ret- 
te telefonisk henvendelse om disse 
ting. 

RUNs redaktion kan heller ikke pa- 
tage sig telefonisk at vsere leeserne be- 
hjaalpelige med fej) finding ved indtast- 
nifig eller tvivlsspargsmal om pro- 
grammeme i det heletagei. Hvis man 
har leest sin brugervejledning og lolger 
denne vejlednmg. skulle indiastningen 
af programmeme ikke give de store 
problemer. 

God fornajelse. 



Narduser 



trykkerdu 



Skaerm 



C CLR3 

CHOil] 

£COJ 

CCN3 

CCU] 

CCH] 

CREU] 

C OFF] 

[ BLK3 

CUHT] 

[RED] 

ccyn] 

C PUR j 
CGRN] 
CBLU] 
CYEL1 



SHIFT 



CLR/HOME 



SHIFT 



SHIFT 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CT Rl- 



CTRL 



CTRL 



CLR/HOME 



CRSR 



CTRL 



CRSR ▼ 



CRSR < 



CRSR ► 



c 
0 
□ 
m 
ii 
a 



s 

h 

m 

□ 
□ 



ORG] 

BRNJ 

LTRED3 

GR1 J 

GR2J 

LTGRND 

LTBLUJ 

GR3J 

FIJ 

F2] 

F3] 

F43 

F5] 

F6] 

F71 

F8J 



SHIFT 



SHIFT 



SHIFT 



L£J 


1 I 




Lei) 


2 | 


rS 


n=n 


' 3 I 


IS 




I 4 I 


H 




5 


E 


r^n 


| 6 


■II 




7 | 


□ 


[*] 




■ ■ 

■ ■ 



II 

51 
■I 



SHIFT + 



\7 



REM KONTROl SUM PROGRAM 
£703 0 tiflSUB 670^0 
62020 GOTO 52200 
62010 If FL>=tf THhN 62020 
620-10 END 

R205B peFFN PEEKCXJ « PfiEKCX )t 256KPLEKCX 
1 1 J 

62068 [)pTfl wx 

6?0^« UftTA 165.257,166,251.113,070.134,0 
21 .032,013 

6708P DPTA 166.716,160,001,127,095.133.2 
51.210.013 

67090 MFlTP 70B . I ;7 ,095 , 113 .252 . 700 , 177 ,0 
^,133.733 

67100 fimn 2Prt.lfill,Rffi0, 131.755 .17^,033.2 
1B.0fl6.HV1 

6?llMUf>lfi 103 .251 .200.208.711 ,096 
67120 Uftlfl -1 
6213W ftp = 52392 
62140 REf-lURE 

62130 REM It: IF Ti <>'*;»*- THEN 62130 
62160 RtflO T : H 1;=C\ THEN POK£ f»D,T : 
6CJ = OUtI : Grnu 67160 

^21^0 PRINT "LClfflHUOR 0NSKES tfONTRul Si m 
PRINTE1: " 

62JR0 INPUT "TU/MnNlTOR=0 PRINTERS PLOTT 

er=6": n£U 

63198 RETURN 

62200 RtM 00 INITftf 1S6TI0N 

62210 Ft = 0 : INPUT "FBRSTE LINE FL 

: IF Fl <0 1 HEN RETURN 

67279 11 = 65536 : INPUT "SIDSTE LINE "f 

LL: PRINT "L CLR 3" 
6273ft IF DEU>0 THEN OPEN I.DEU 



62210 L N = Ft : C = 8 : CI =0 
62250 POKE 252,LN-INTCLN/?56J:*2S6 ; PUKE 
253.LN/256 

52260 SYS 5Z992:CS^ J EErC25l );|.N-rN0EEKC2 
52 ]tl 

62270 T* = LEFTiCSlRiCLN-l jt-L6SPCJ".6ii 

LEFTtCSTRtCCS H"C?SPUJ" .23 

62280 IF UEU-W THF.N PRINT Ti; 

G22H0 IF DRU>U THEN PRINT«1,T*; 

62300 If DEU=0 THEN C = C*l : IF C>=3 1H 

EN PRINT : C = 0 : CI = CI ♦ 1 

62110 IF DEU;8 THEM L = C-*l : ]F C>=3 TH 

EN PRINInl : C : fl : CI ; CM i 

67370 II lR<*Lt Wi rEEKC75D THEN 62250 

62330 IF OEU>0 THEN PRl NT» 1 : CLOSE1 

62340 END 



KW1ROLKUM 










67000 


5 


620 10 


120 


67020 


163 


62030 


W? 


67W40 


12<J 


620S0 


179 


62060 


33 


6?PV^ 


30 


67080 


1H 


670S0 


•IB 


F.710H 


31 


67H0 


11 


62120 


>i!'. 


671 30 


110 


67110 


110 


62150 


\r,p 


671 Fi0 


29 


62120 


B5 


621R0 


727 


67190 


117 


62700 


39 


62210 


A? 


G2770 


IPS 


67710 


~>7 


62240 


13 


67750 


?Pi? 


62760 


23Li 


62270 


103 


677P0 
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RUN Nr. 6 

udkommer den 8. September 1985 

N2este nummer er et program-special nummer 

med ekstra mange kvalitetsprogrammer. 

Test af en typehjulprinter og et tekstbehand- 

lingsprograrn til PC'eren. 

Test af den danske version af Easy Script. 

Vi har teet en masse spaendende nyhedertil 

test. 

Vi starter en »COMAL-skole« - vaar med fra 
starten. 



GAMLE RUN'ER 

Der er mange SeBsere, der Brisker 
en komplet samling af RUN. Vi 
har jsevnligt foresporgsler, og 
kan i den anEedning optyse, at 
man ved indsendelse af kr. 25,- pi 
postgiro 1 48 31 61 kan fa sendl 
del nummer, man mangier. 



PRIVATANNONCER 

Tekstprogram til Commodore-64 
med dansk karaktersaet og vejled- 
ning. Scroti i alle retninger. 80 ta- 
bulatorpositioner. Koplering, om- 
bytning og flytning af linier. Disk- 
version. Kr. 125,- Kassetteversi- 
on: kr. 75.- Efterkl. 18. B. Jensen. 
Tlf. (01)97 08 77. 



ADVENTURE HJ£LP! 

Jeg tilbyder kvalificeret hjaelp til alle 
fortvivlede eventyrere: Komplette 
losninger, kort + svar pa evt. 
sporgsrnal vedrorende Hobbit. 
Hulk. Eureka samt andre popular© 
eventyrspil. 

Send ordre(r) + 20 kr. til 

Soren Hansen 

Legindvej 133 

7752 Snedsted 
•©Her ring pa Tlf 07^939037 



SEBlges 

Seikosha Printer GP100VC (svarer 
til MPS 801) til salg for kr. 1.800.-. 
Er ellers OK. 
Tlf. 03-693839 




S&LGES 

HARDVARE 

CBM64, MPS 802, CBM1541. 
CBM1530. Sanyo CD 3195 C Moni- 
tor. WICO red ball x 2 ATARI + 1 
COM joystick 2 COM paddles. 
SOFTWAREvCOMAL 2.0 cart,. Wl- 
ZAWRITE cart., regneark, kalender, 
grafikprg., budget, Colossus Chess 
samt en bunke originate spil (ca.50 
ialt). 

Stadig 5 mdrs. garanti. Nypris ca. 
26.000,00 - saslges for hojeste bud 
over kr. 15.000,00. 

M.E.LRasmussen 

Tlf. 09-155360 



Brugerklub 

Da jeg mener, at vi har behov for en 
brugerklub for C64 ejere, vil jeg op- 
fordre alle interesserede til at rette 
henvendelse til nedenstaende 
adresse. 

Klubbens formal vil vsere at ud- 
veksle erfaringer og egne program- 
mer. 

Henning Henriksen 
Bogevaanget 123. I.sal tv, 
2670 Greve Strand 



INDSENDELSE AF 
PROGRAMMER TIL RUN 

Har du skrevet et godt program, 
som du mener har interesse for 
andre, kan du sende en kassette 
eller diskette til RUNs redaktion. 
Onskerdu det indsendte materia- 
le returneret, bedes du venligst 
vedlaegge frankeret svarkuvert. 

Alle programmer, der trykkes I 
RUN, praemieres med 10 disket- 
ter eller 24 b&nd efter eget enske. 

Som privatperson kan du lige- 
ledes annoncere gratis i RUN. Be- 
tingelsen er dog, at det ikke er pi- 
ratkopier, du vil saelge. Hvis re- 
daktionen skanner, at dette er tll- 
faaldet, vil annoncen ikke blive 
bragt. 

Vi glaeder os til at here fra dig. 



Commodore 64 

YATZE med seks terninger. Op til 
seks sptllere kan spille samtidig. 
Der kan spilles pa 2 mader. Har top- 
6 highscore. Diskversionen »hu- 
sker« de seks hojeste score fra 
gang til gang 
Kassette; kr. 75.00 
Diskette: kr. 100.00 
KARTOTEKSPROGRAM. Op III 
1000 poster. Sogning pa flere for- 
skellige kriterier samtidig. Hurtig 
sogning. Rette/slette muligheder. 
Kun disk: kr. 125.00 <Excl. disk til 
data). 

Begge programmer incl. vejledning. 
B.P.Jensen. Tlf. 08-123045 (Efter kl. 
19) 



Finansprogram 

Kapacitet: 50 konti, 50 kunder, 100 
varenumre. Programmet kan ud- 
skrive en liste over debitorer/kredi- 
torer, kontoplan, og varellste. 
Man kan selv definere stamdata. 
Nar man skriver faktura, bogfores 
momskonto, varesalg. debitor, 
samlekonto for debitorer og des- 
uden nedskrives lageret. Ved kre- 
ditnota omvendt. 

Disketteversion incl. lille bruger- 
vepedning kr. 500,00. 
Peter Skov Hansen 
Smedevaange 25 
4600 Koge 
Tlf. 03-659685 
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PRINTER LYDKABINETTER 
. BOLDSEN 02 95 06 92 



kg 



HVEM HJ/ELR 



106B 



7562158 



10 



HOLSTEBRO BIBLIOTEK 
INFORMATION 
KIRKESTRGDE 11 
7500 HOLSTEBRO 




MATRIX PRINTER MPS 801 

MPS 801 er til dig, der vil have en virkelig protessionel 
printer. 50 karakterer pf. sek. og 80 karakterer pr. linie. 
Ideel til udskrivning af fakturaer, checks, breve o. lign. 

Der er fuldt alfanumerisk tegnsst samt 
Commodoregrafik. Den Kan ogsa skrive med negatrv 
skritt og lave torstorrede karakterer. Desuden kan du 
designe tegn og bomcerker med Commodore MPS 801. 




MATRIX PRINTER MPS 802 

Ideel til tekstbehandling. Fordi dens tegnoplosning er sa 
hflj. Velegnet til administrative systemer. Fordi den 
er beundrlngsvffirdig hurtig med 80 karakterer pr. sek. 
Fordi den ubesvsrei taver 20, 40 eller 80 tegn pr. linie. 
Bidirektional primning. Naturtigvis med den linie- 
afstand du programmers den til. Printer MPS 802 arbej- 
der med papirlbrmater op til A4. 



Commodore Computer er den storste 
leverandor al hjemmecomputere i 
Danmark - og del farpligter. 

Vore peritefe enheder lever fuldt og 
helt op til vore computeres standard. 

Med vore printere, plottere, diskette- 
stationer og datasette udvider rJu dine 
mul igheder savel pa del administrative 
omrade som pa omradet for udvikling al 
egne programmer. 



Commodore 

Fordi fremtiden forleengst 
erbegyndt 



